Ignore:
Timestamp:
Mar 26, 2008, 2:06:32 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Rajout ok_dynzon pour faire ou non les sorties bilan
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/conf_gcm.F

    r764 r935  
    600600       offline = .FALSE.
    601601       CALL getin('offline',offline)
     602
     603!Config  Key  = ok_dynzon
     604!Config  Desc = calcul et sortie des transports
     605!Config  Def  = n
     606!Config  Help = Permet de mettre en route le calcul des transports
     607!Config         
     608       ok_dynzon = .FALSE.
     609       CALL getin('ok_dynzon',ok_dynzon)
    602610
    603611
    … …  
    643651      write(lunout,*)' tauyy = ', tauyy
    644652      write(lunout,*)' offline = ', offline
     653      write(lunout,*)' ok_dynzon = ', ok_dynzon
    645654
    646655      RETURN
    … …  
    757766      write(lunout,*)' offline = ', offline
    758767
     768!Config  Key  = ok_dynzon
     769!Config  Desc = calcul et sortie des transports
     770!Config  Def  = n
     771!Config  Help = Permet de mettre en route le calcul des transports
     772!Config         
     773       ok_dynzon = .FALSE.
     774       CALL getin('ok_dynzon',ok_dynzon)
    759775
    760776      write(lunout,*)' #########################################'
    … …  
    799815      write(lunout,*)' tauy = ', tauy
    800816      write(lunout,*)' offline = ', offline
     817      write(lunout,*)' ok_dynzon = ', ok_dynzon
    801818c
    802819      RETURN
Note: See TracChangeset for help on using the changeset viewer.