***************************************************************************
***************************************************************************
********  Generating Guidance info for Help of Objects in VIZU ************
***************************************************************************
***************************************************************************
  At very end of any processor you want to generate guidance from :
use the following mortran bloc :
Vizu_Entry<;
*XXX: ...; specific instructions efficient for guidance :
;;;;          Any number if abny of these to structure info
*Tit:;   Title
*Ref:;   References
*any:;   to draw separations between fields and Taylor your help Vizu widget.
*Equ:;   Equations
*Var:;   Variable (State or TRansfer) description / component      IMPORTANT
                                      (Used also for matrix/Definition/Help)
*Exp:;   Explanation on abstract level
*Cxs:;   Connections, Edge_types, Plugs.
*Str:;   Structure  usaully ascii art to get structure of immediate environmt
*usa:;   Information concernant l'utilisation du processeur vis a vis des autres
*Log:;   Development info, bugs, personal think what.
*Typ:;   Type Argument (in Zinit Create [XXX ,] type = YYY [Arg1, Arg2, Arg3];
                                                            ****  ****  ****
*Zin:;   Zinit description bank values to be initialized in.
*Usa:;   Practical usability info memo.
[   PLEASE signal your own extra requisits to ZOOM society ].
;;;;;;;
*Vizu_Par: ; "this one (UNIQUE) to get PW symbols in Help (automatic)"

***************************************************************************
********  Exemple *********************************************************
***************************************************************************
   Just before "END;" of processor :
&B; "This to cancel Space compression by Mortran. =. please restore &B0"
Cette precedente directive Mortran est quasi indispensable, si l'on veut
pouvoir utiliser les caracteres <,>;
***************  IMPORTANT !
 Noter cependant que le simple quote : ' est proscrit (on peut utiliser l anti quote : `;
***************
Remarque : les " " restent des commentaires Mortran.
Vizu_Entry<;
*any: ************ Help BIDON Pour TEST;
*TIT:     Capacitance Processor   (Al1 Test macro option BFlag);
*TIT: CND1 mods as an offset equation to EtaBar (T_mean);
*any:--------------------------------------------------------------;
*Equ: Capa * dT/dt - Flux_Somme = 0;
*Var: Eta(1) is Temperature (submit to Zinit reference), or K_Temp biased;
*Var:        if associated to TCell macro State processor;
*Vizu_Par: Traitement automatique du Bank PW;
*any:--------------------------------------------------------------;
*Exp:    K_temp absolute temp for PAR. (T_mean linked on null);
*Exp:    if no Macro TCell State in the Fm.;
*any:++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++;
*Cxs:    Cx to PsiPrime=TCdM and PsiBar as TDcplg;
*Cxs:  The first component of each Tplug is a Flux;
*any:--------------------------------------------------------------;
*Str:                 |           |                            ;
*Str:                 |   CL-N    |                            ;
*Str:     ----------- |-----------|-----------                 ;
*Str:                 |           |                            ;
*Str:       CL-E      |   CL-P    |   CL-W                     ;
*Str:     ------------|-----------|-----------                 ;
*Str:                 |   CL-S    |                            ;
*Str:                 |           |                            ;
*any:++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++;
*Usa: The transfer sign convention is positive from first to second;
*Usa:  TPlug, if the transfer has 2 extremity;
*Usa: Transferts with more then 2 extremity must give a positive;
*Usa:   inwards flux;
*any:++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++;
*Log:*CMZ :  MOds xxx       27/07/95  22.34.09  by  Alain LAHELLEC;
*Log:*BUG : Use of Tau determination is approximative if dTime.ne.2s;
>;return;
&B0;   " RESTORE Standard Space compression"
END;
***************************************************************************
********  Use the following pattern to easy implementation ****************
***************************************************************************
***************************************************************************
********* cf $ZOOM/user_data/zoomtproc.cmt ********************************
********* et $ZOOM/user_data/zoomcproc.cmt ********************************
***************************************************************************
;
[exemple  from Al1]
!OOO!**********************************************************************
*Tit:       ADVECTION/DIFFUSION TRANSFER   ;                             "*"
*Tit:     Transfert surfacique à 3 composantes minimum;                  "*"
!**************************************************************************
*any:---------------------------------------------------Model Equation(s).*;
*Equ:;                                                                   "*"
*any:--------------------------------------------------------Explanations.*;
*Exp:;                                                                   "*"
*any:=====================================================================*;
*Var:     FI(1)   = [RoV]perp à l`interface = Ro*gradPsi   |Ro.V | ;     "*"
*Var:   i=1,NbEtaSV:                                               ;     "*"
*Var:     FI(1+i) = [ETA_SV(1)]i                            | w   |;     "*"
*Var:     FI(2+i) = [-Gamma*GradETA_SV(1)]i            TR = |G.Dw |;     "*"
*any:=====================================================================*;
*Cxs: La première est calculée de GradPsi: Vperp                    ;    "*"
*Cxs:  et transporté les autres                                     ;    "*"
*Cxs: La première est supposée tourbillon sur planète si flat.ne.0. ;    "*"
*Cxs:      ( Non cumulated transfer );                                   "*"
*any:---------------------------------------------------------------------*;
*Str:                            X Psi2.                             ;   "*"
*Str:                            I      .                            ;   "*"
*Str:                            I       . même C-Plug               ;   "*"
*Str:                            I         .                         ;   "*"
*Str:                            I          .                        ;   "*"
*Str:          Cl-Sv... TV1>---  U -->TV2 ...... Cl                  ;   "*"
*Str:                .           I                                   ;   "*"
*Str:                  .         I                     Psi2 - Psi1   ;   "*"
*Str:                    .       I T_side          U = -----------   ;   "*"
*Str:          même C-Plug .     I                       T_side      ;   "*"
*Str:                        .   I                                   ;   "*"
*Str:                          . X Psi2                              ;   "*"
*any:---------------------------------------------------------------------*;
*Typ:    JZTAU = Nb_Eta = Nbre de grandeurs adv&dif;                     "*"
*Zin:;                                                                   "*"
*Usa:     D_Mx TRansfer;                                                 "*"
*any:---------------------------------------------------------------------*;
*Log:;                                                                   "*"
!QQQ!***********************************************************************


Remarque finale : cet en-tete est automatiquement genere sous CMZ
a la creation d'un DECK; cf $ZOOM/user_data/zoomcproc.cmt
                            $ZOOM/user_data/zoomtproc.cmt

***************************************************************************
********  Use the following pattern to easy implementation ****************
***************************************************************************
********* cf $ZOOM/user_data/zoomtproc.cmt ***cmz template for Tr proc*****
********* et $ZOOM/user_data/zoomcproc.cmt ***cmz template for Cl proc*****
***************************************************************************

SUGGESTIONS CRITIQUES (Dater signer SVP
=======================================