Changeset 295 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

Timestamp:

Nov 26, 2001, 2:47:57 PM (23 years ago)

Author:

lmdzadmin

Message:

Tag version 0 qui marche en couple/force
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

@@ -306 +306 @@
       t_ops = iecri * daysec
       t_wrt = iecri * daysec
-      CALL inithist(dynhist_file,day_ini,anne_ini,time_step,
-     .              t_ops, t_wrt, nqmx, histid, histvid)
+C      CALL inithist(dynhist_file,day_ini,anne_ini,time_step,
+c     .              t_ops, t_wrt, nqmx, histid, histvid)
 
       t_ops = iperiod * time_step
@@ -595 +595 @@
                nbetat = nbetatdem
        CALL geopot  ( ip1jmp1, teta  , pk , pks,  phis  , phi        )
-       CALL writehist( histid, histvid, nqmx, itau,vcov , 
-     ,                          ucov,teta,phi,q,masse,ps,phis)
+c       CALL writehist( histid, histvid, nqmx, itau,vcov , 
+c     ,                          ucov,teta,phi,q,masse,ps,phis)
 
 
@@ -682 +682 @@
                   nbetat = nbetatdem
        CALL geopot  ( ip1jmp1, teta  , pk , pks,  phis  , phi       )
-       CALL writehist( histid, histvid, nqmx, itau,vcov , 
-     ,                          ucov,teta,phi,q,masse,ps,phis)
+c       CALL writehist( histid, histvid, nqmx, itau,vcov , 
+c     ,                          ucov,teta,phi,q,masse,ps,phis)
                ENDIF