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

Timestamp:

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

Author:

lmdzadmin

Message:

Tag version 0 qui marche en couple/force
LF

Location:

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

Files:

• abort_gcm.F (modified) (1 diff)
• gcm.F (modified) (3 diffs)

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

@@ -20 +20 @@
       call histclo
       call restclo
+c     call getin_dump
 c     call histclo(2)
 c     call histclo(3)

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