Exemples/ex24/titi.comm

   1
   2
   3 SD1=DEFI_SONDE(Z=1,
   4                X=2,
   5                Y=3,);
   6 #
   7 #
   8 #
   9
  10 _param_1 = 1;
  11
  12 _param_2 = 2;
  13
  14 _param_4 = EVAL("""23""");
  15
  16
  17 SD2=DEFI_SONDE(Z=1,
  18                X=2,
  19                Y=3,);
  20
  21 SD3=DEFI_SONDE(Z=3,
  22                X=4,
  23                Y=5,);
  24
  25 SD4=DEFI_SONDE(Z=12,
  26                X=11,
  27                Y=10,);
  28
  29 SD5=DEFI_SONDE(Z=21,
  30                X=21,
  31                Y=21,);
  32
  33 temperature=DEFI_SCALA(RESTITUE=_F(NOMVAR='temperature',
  34                                    ILISVR=1,
  35                                    ICHRVR=1,
  36                                    IHISVR=SD1,),
  37                        MODELE=_F(SIGMAS=0.90000000000000002,
  38                                  SCAMAX=1000,
  39                                  VALREF=300.0,
  40                                  SCAMIN=270,
  41                                  VISLS0=0.050000000000000003,
  42                                  IVISLS=1,),
  43                        NUMERIC=_F(IMLIGR=1,
  44                                   CLIMGR=1.7,
  45                                   EPSRGR=1.E-4,
  46                                   NITMAX=1000,
  47                                   IDIRCL=0,
  48                                   IDIFF=1,
  49                                   NSWRGR=2,
  50                                   NSWRSM=10,
  51                                   EPSILO=1.0000000000000001E-05,
  52                                   ISTAT=1,
  53                                   ICONV=1,
  54                                   BLENCV=0.5,
  55                                   ISCHCV=1,),);
  56
  57 cb=DEFI_SCALA(RESTITUE=_F(NOMVAR='bore',),
  58               MODELE=_F(VALREF=1000.0,
  59                         VISLS0=0.29999999999999999,),
  60               NUMERIC=_F(ICONV=1,
  61                          BLENCV=0,),);
  62
  63 CALCUL_SATURNE(ENVELOPPE=_F(IFOENV=2,
  64                             FICEVI='Enveloppe_vers_solveur          ',
  65                             IMPEVI=83,
  66                             IMPEVO=84,
  67                             FICEVO='Solveur_vers_enveloppe          ',),
  68                CONSTANTES_PHYSIQUES=_F(FLUIDE=_F(VISCL0=0.10000000000000001,
  69                                                  P0=1.E4,
  70                                                  RO0=1000.0,),
  71                                        GRAVITE=_F(GX=0,
  72                                                   GY=0,
  73                                                   GZ=0,),),
  74                HISTORIQUE_PONCTUEL=_F(FICHIERS_HISTORIQUES=_F(EXTHIS='histo',
  75                                                               EMPHIS='./',),
  76                                       NTHSAV=20,
  77                                       NTHIST=1,),
  78                OPTIONS_TURBULENCE=_F(ISCALT=temperature,
  79                                      IGRAKE=0,),
  80                VARIABLES=_F(IWARNI=3,
  81                             NTLIST=2,
  82                             MASVOL1=_F(NOMVAR='Masse_vol1',
  83                                        ILISVR=1,
  84                                        ICHRVR=0,
  85                                        IHISVR=SD2,),),
  86                MARCHE_TEMPS=_F(IDTVAR=2,
  87                                DTREF=1.E-3,
  88                                XCFMAX=0.5,),
  89                FICHIERS_CALCUL=_F(SUITE_AVAL=_F(FICAVA='sui_amo',
  90                                                 IMPAVA=70,
  91                                                 IFOAVA=1,),
  92                                   FICHIER_STOP=_F(FICSTP='ficstop',
  93                                                   IMPSTP=82,),),
  94                GESTION_CALCUL=_F(NTMABS=1000,
  95                                  TTPABS=10.5,
  96                                  ISUITE=0,
  97                                  NTPABS=100,),
  98                OPTIONS_EQUATIONS=_F(),
  99                POST_PROC_ENSIGHT=_F(IFOENS=1,
 100                                     NTCHR=3,
 101                                     ITCHR=10,),
 102                );