Changeset 1247 for LMDZ4/branches

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

Files:

• dyn3d/gcm.F (modified) (1 diff)
• dyn3d/leapfrog.F (modified) (2 diffs)
• dyn3dpar/gcm.F (modified) (1 diff)
• dyn3dpar/leapfrog_p.F (modified) (4 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)

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?)