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/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • 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.