Changeset 1592 for LMDZ5/trunk


Ignore:
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
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/gcm.F

    r1577 r1592  
    8888
    8989      REAL zdtvr
    90       INTEGER nbetatmoy, nbetatdem,nbetat
    9190
    9291c   variables dynamiques
    … …  
    384383#endif
    385384
    386 c  nombre d'etats dans les fichiers demarrage et histoire
    387       nbetatdem = nday / iecri
    388       nbetatmoy = nday / periodav + 1
    389385
    390386      if (iflag_phys.eq.1) then

  • LMDZ5/trunk/libf/dyn3d/leapfrog.F

    r1577 r1592  
    7272
    7373      real zqmin,zqmax
    74       INTEGER nbetatmoy, nbetatdem,nbetat
    7574
    7675c   variables dynamiques
    … …  
    631630             ! Ehouarn: output only during LF or Backward Matsuno
    632631             if (leapf.or.(.not.leapf.and.(.not.forward))) then
    633               nbetat = nbetatdem
    634632              CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
    635633              unat=0.
    … …  
    749747              IF(MOD(itau,iecri         ).EQ.0) THEN
    750748c              IF(MOD(itau,iecri*day_step).EQ.0) THEN
    751                 nbetat = nbetatdem
    752749                CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
    753750                unat=0.

  • LMDZ5/trunk/libf/dyn3dpar/gcm.F

    r1577 r1592  
    8787
    8888      REAL zdtvr
    89 c      INTEGER nbetatmoy, nbetatdem,nbetat
    90       INTEGER nbetatmoy, nbetatdem
    9189
    9290c   variables dynamiques
    … …  
    401399#endif
    402400
    403 c  nombre d'etats dans les fichiers demarrage et histoire
    404       nbetatdem = nday / iecri
    405       nbetatmoy = nday / periodav + 1
    406401
    407402      if (iflag_phys.eq.1) then

  • LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

    r1577 r1592  
    7575
    7676      real zqmin,zqmax
    77       INTEGER nbetatmoy, nbetatdem,nbetat
    7877
    7978c   variables dynamiques
    … …  
    14401439c$OMP BARRIER
    14411440c$OMP MASTER
    1442               nbetat = nbetatdem
    14431441              CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi)
    14441442       
    … …  
    16431641c$OMP BARRIER
    16441642c$OMP MASTER
    1645                 nbetat = nbetatdem
    16461643                CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi)
    16471644
Note: See TracChangeset for help on using the changeset viewer.