Changeset 1358


Ignore:
Timestamp:
Apr 14, 2010, 4:18:12 PM (15 years ago)
Author:
Ehouarn Millour
Message:

Forgot to include this one in revision 1357

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/conf_gcm.F

    r1320 r1358  
    1212! if not using IOIPSL, we still need to use (a local version of) getin
    1313      use ioipsl_getincom
    14  
    1514#endif
    1615      IMPLICIT NONE
    … …  
    582581      CALL getin('config_inca',config_inca)
    583582
    584 
    585583!Config  Key  = ok_dynzon
    586584!Config  Desc = calcul et sortie des transports
    … …  
    590588      ok_dynzon = .FALSE.
    591589      CALL getin('ok_dynzon',ok_dynzon)
     590
     591!Config  Key  = ok_dyn_ins
     592!Config  Desc = sorties instantanees dans la dynamique
     593!Config  Def  = n
     594!Config  Help =
     595!Config         
     596      ok_dyn_ins = .FALSE.
     597      CALL getin('ok_dyn_ins',ok_dyn_ins)
     598
     599!Config  Key  = ok_dyn_ave
     600!Config  Desc = sorties moyennes dans la dynamique
     601!Config  Def  = n
     602!Config  Help =
     603!Config         
     604      ok_dyn_ave = .FALSE.
     605      CALL getin('ok_dyn_ave',ok_dyn_ave)
     606
    592607
    593608      write(lunout,*)' #########################################'
    … …  
    629644      write(lunout,*)' config_inca = ', config_inca
    630645      write(lunout,*)' ok_dynzon = ', ok_dynzon
     646      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins
     647      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave
    631648
    632649      RETURN
    … …  
    755772
    756773!Config  Key  = ok_dynzon
    757 !Config  Desc = calcul et sortie des transports
     774!Config  Desc = sortie des transports zonaux dans la dynamique
    758775!Config  Def  = n
    759 !Config  Help = Permet de mettre en route le calcul des transports
     776!Config  Help =
    760777!Config         
    761778       ok_dynzon = .FALSE.
    762779       CALL getin('ok_dynzon',ok_dynzon)
     780
     781!Config  Key  = ok_dyn_ins
     782!Config  Desc = sorties instantanees dans la dynamique
     783!Config  Def  = n
     784!Config  Help =
     785!Config         
     786      ok_dyn_ins = .FALSE.
     787      CALL getin('ok_dyn_ins',ok_dyn_ins)
     788
     789!Config  Key  = ok_dyn_ave
     790!Config  Desc = sorties moyennes dans la dynamique
     791!Config  Def  = n
     792!Config  Help =
     793!Config         
     794      ok_dyn_ave = .FALSE.
     795      CALL getin('ok_dyn_ave',ok_dyn_ave)
    763796
    764797!Config key = ok_strato
    … …  
    816849      write(lunout,*)' config_inca = ', config_inca
    817850      write(lunout,*)' ok_dynzon = ', ok_dynzon
     851      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins
     852      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave
    818853      write(lunout,*)' ok_strato = ', ok_strato
    819854      write(lunout,*)' ok_gradsfile = ', ok_gradsfile
Note: See TracChangeset for help on using the changeset viewer.