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

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/dyn3dpar

Files:

• gcm.F (modified) (1 diff)
• leapfrog_p.F (modified) (4 diffs)

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

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

@@ -1314 +1314 @@
 c$OMP BARRIER
 c$OMP MASTER
-              CALL writedynav_p(histaveid, itau,vcov ,
-     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
+!              CALL writedynav_p(histaveid, itau,vcov ,
+!     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
 
 c ATTENTION!!! bilan_dyn_p ne marche probablement pas avec OpenMP
@@ -1366 +1366 @@
 #ifdef CPP_IOIPSL
  
-              CALL writehist_p(histid,histvid, itau,vcov, 
-     &                         ucov,teta,phi,q,masse,ps,phis)
+!              CALL writehist_p(histid,histvid, itau,vcov, 
+!     &                         ucov,teta,phi,q,masse,ps,phis)
 
 #endif
@@ -1482 +1482 @@
 c$OMP BARRIER
 c$OMP MASTER
-               CALL writedynav_p(histaveid, itau,vcov ,
-     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
+!               CALL writedynav_p(histaveid, itau,vcov ,
+!     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
                CALL bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav,
      ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
@@ -1527 +1527 @@
 #ifdef CPP_IOIPSL
 
-                CALL writehist_p(histid, histvid, itau,vcov , 
-     &                           ucov,teta,phi,q,masse,ps,phis)
+!                CALL writehist_p(histid, histvid, itau,vcov , 
+!     &                           ucov,teta,phi,q,masse,ps,phis)
 #endif
 ! For some Grads output (but does it work?)