Changeset 1247 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d

Timestamp:

Sep 23, 2009, 5:42:16 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Mise en commentaire des sorties dynhist et dynhistave

Location:

LMDZ4/branches/LMDZ4-dev/libf/dyn3d

Files:

• gcm.F (modified) (1 diff)
• leapfrog.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/gcm.F

@@ -442 +442 @@
       t_ops = iecri * daysec
       t_wrt = iecri * daysec
-      CALL inithist(dynhist_file,day_ref,annee_ref,time_step,
-     .              t_ops, t_wrt, histid, histvid)
-
-      IF (ok_dynzon) THEN 
-         t_ops = iperiod * time_step
-         t_wrt = periodav * daysec
-         CALL initdynav(dynhistave_file,day_ref,annee_ref,time_step,
-     .        t_ops, t_wrt, histaveid)
-      END IF
+!      CALL inithist(dynhist_file,day_ref,annee_ref,time_step,
+!    .              t_ops, t_wrt, histid, histvid)
+
+!     IF (ok_dynzon) THEN 
+!        t_ops = iperiod * time_step
+!        t_wrt = periodav * daysec
+!        CALL initdynav(dynhistave_file,day_ref,annee_ref,time_step,
+!    .        t_ops, t_wrt, histaveid)
+!     END IF
       dtav = iperiod*dtvr/daysec
       endif

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/leapfrog.F

@@ -559 +559 @@
                IF (ok_dynzon) THEN
 #ifdef CPP_IOIPSL
-                  CALL writedynav(histaveid, itau,vcov ,
-     ,                 ucov,teta,pk,phi,q,masse,ps,phis)
+!                  CALL writedynav(histaveid, 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)
@@ -671 +671 @@
                IF (ok_dynzon) THEN 
 #ifdef CPP_IOIPSL
-                  CALL writedynav(histaveid, itau,vcov ,
-     ,                 ucov,teta,pk,phi,q,masse,ps,phis)
+!                  CALL writedynav(histaveid, 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)