Changeset 1247 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F

Timestamp:

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

Author:

Laurent Fairhead

Message:

Mise en commentaire des sorties dynhist et dynhistave

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F (modified) (1 diff)

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

@@ -468 +468 @@
       t_ops = iecri * daysec
       t_wrt = iecri * daysec
-      CALL inithist_p(dynhist_file,day_ref,annee_ref,time_step,
-     .              t_ops, t_wrt, histid, histvid)
+!      CALL inithist_p(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_p(dynhistave_file,day_ref,annee_ref,time_step,
-     .        t_ops, t_wrt, histaveid)
+!         CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step,
+!     .        t_ops, t_wrt, histaveid)
       END IF
       dtav = iperiod*dtvr/daysec