Changeset 1592 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Nov 26, 2011, 7:57:55 AM (13 years ago)

Author:

Ehouarn Millour

Message:

Minor cleanup: remove unused variables nbetat, nbetatmoy and nbetatdem.
EM

Location:

LMDZ5/trunk/libf/dyn3d

Files:

• gcm.F (modified) (2 diffs)
• leapfrog.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d/gcm.F

@@ -88 +88 @@
 
       REAL zdtvr
-      INTEGER nbetatmoy, nbetatdem,nbetat
 
 c   variables dynamiques
@@ -384 +383 @@
 #endif
 
-c  nombre d'etats dans les fichiers demarrage et histoire
-      nbetatdem = nday / iecri
-      nbetatmoy = nday / periodav + 1
 
       if (iflag_phys.eq.1) then

LMDZ5/trunk/libf/dyn3d/leapfrog.F

@@ -72 +72 @@
 
       real zqmin,zqmax
-      INTEGER nbetatmoy, nbetatdem,nbetat
 
 c   variables dynamiques
@@ -631 +630 @@
              ! Ehouarn: output only during LF or Backward Matsuno
              if (leapf.or.(.not.leapf.and.(.not.forward))) then
-              nbetat = nbetatdem
               CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
               unat=0.
@@ -749 +747 @@
               IF(MOD(itau,iecri         ).EQ.0) THEN
 c              IF(MOD(itau,iecri*day_step).EQ.0) THEN
-                nbetat = nbetatdem
                 CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
                 unat=0.