Ignore:
Timestamp:
Mar 26, 2008, 2:06:32 PM (17 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/dyn3d/conf_gcm.F

    r844 r935  
    593593       offline = .FALSE.
    594594       CALL getin('offline',offline)
     595
     596!Config  Key  = ok_dynzon
     597!Config  Desc = calcul et sortie des transports
     598!Config  Def  = n
     599!Config  Help = Permet de mettre en route le calcul des transports
     600!Config         
     601       ok_dynzon = .FALSE.
     602       CALL getin('ok_dynzon',ok_dynzon)
    595603
    596604
    … …  
    636644      write(lunout,*)' tauyy = ', tauyy
    637645      write(lunout,*)' offline = ', offline
     646      write(lunout,*)' ok_dynzon = ', ok_dynzon
    638647
    639648      RETURN
    … …  
    750759      write(lunout,*)' offline = ', offline
    751760
     761!Config  Key  = ok_dynzon
     762!Config  Desc = calcul et sortie des transports
     763!Config  Def  = n
     764!Config  Help = Permet de mettre en route le calcul des transports
     765!Config         
     766       ok_dynzon = .FALSE.
     767       CALL getin('ok_dynzon',ok_dynzon)
    752768
    753769      write(lunout,*)' #########################################'
    … …  
    792808      write(lunout,*)' tauy = ', tauy
    793809      write(lunout,*)' offline = ', offline
     810      write(lunout,*)' ok_dynzon = ', ok_dynzon
    794811c
    795812      RETURN
Note: See TracChangeset for help on using the changeset viewer.