Changeset 935 for LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d

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

Location:

LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d

Files:

• conf_gcm.F (modified) (4 diffs)
• control.h (modified) (2 diffs)
• leapfrog.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d/conf_gcm.F

@@ -593 +593 @@
        offline = .FALSE.
        CALL getin('offline',offline)
+
+!Config  Key  = ok_dynzon
+!Config  Desc = calcul et sortie des transports
+!Config  Def  = n
+!Config  Help = Permet de mettre en route le calcul des transports
+!Config         
+       ok_dynzon = .FALSE.
+       CALL getin('ok_dynzon',ok_dynzon)
 
 
@@ -636 +644 @@
       write(lunout,*)' tauyy = ', tauyy
       write(lunout,*)' offline = ', offline
+      write(lunout,*)' ok_dynzon = ', ok_dynzon
 
       RETURN
@@ -750 +759 @@
       write(lunout,*)' offline = ', offline
 
+!Config  Key  = ok_dynzon
+!Config  Desc = calcul et sortie des transports
+!Config  Def  = n
+!Config  Help = Permet de mettre en route le calcul des transports
+!Config         
+       ok_dynzon = .FALSE.
+       CALL getin('ok_dynzon',ok_dynzon)
 
       write(lunout,*)' #########################################'
@@ -792 +808 @@
       write(lunout,*)' tauy = ', tauy
       write(lunout,*)' offline = ', offline
+      write(lunout,*)' ok_dynzon = ', ok_dynzon
 c
       RETURN

LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d/control.h

@@ -14 +14 @@
      &              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq , &
      &              periodav,ecritphy,iecrimoy,dayref,anneeref,         &
-     &              raz_date,offline,ip_ebil_dyn
+     &              raz_date,offline,ip_ebil_dyn,ok_dynzon
 
       INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,        &
@@ -21 +21 @@
       REAL periodav, ecritphy
       logical offline
+      logical ok_dynzon
 
 !-----------------------------------------------------------------------

LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3d/leapfrog.F

@@ -536 +536 @@
                ENDIF
 #ifdef CPP_IOIPSL
+             IF (ok_dynzon) THEN
               CALL writedynav(histaveid, nqmx, itau,vcov ,
      ,                          ucov,teta,pk,phi,q,masse,ps,phis)
                call bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
      ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
+             ENDIF
 #endif
 
@@ -642 +644 @@
                ENDIF
 #ifdef CPP_IOIPSL
-              CALL writedynav(histaveid, nqmx, itau,vcov ,
+               IF (ok_dynzon) THEN
+                 CALL writedynav(histaveid, nqmx, itau,vcov ,
      ,                          ucov,teta,pk,phi,q,masse,ps,phis)
-               call bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
+                 call bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
      ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
+               ENDIF
 #endif