Changeset 566 for LMDZ4/trunk/libf/dyn3d


Ignore:
Timestamp:
Dec 10, 2004, 12:27:46 PM (20 years ago)
Author:
lmdzadmin
Message:

Bugs divers YM
LF

Location:
LMDZ4/trunk/libf/dyn3d
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/advtrac.F

    r563 r566  
    338338
    339339c                  call clock(t_final)
    340                   tps_cpu=t_final-t_initial
    341                   cpuadv(iq)=cpuadv(iq)+tps_cpu
     340cym                  tps_cpu=t_final-t_initial
     341cym                  cpuadv(iq)=cpuadv(iq)+tps_cpu
    342342
    343343       end DO

  • LMDZ4/trunk/libf/dyn3d/bilan_dyn.F

    r559 r566  
    6060
    6161
    62       character*6 nom(nQ)
    63       character*6 unites(nQ)
     62cym      character*6 nom(nQ)
     63cym      character*6 unites(nQ)
     64      character*6,save :: nom(nQ)
     65      character*6,save :: unites(nQ)
     66
    6467      character*10 file
    6568      integer ifile
    … …  
    113116      parameter (ntr=5)
    114117
    115       character*10 znom(ntr,nQ)
    116       character*20 znoml(ntr,nQ)
    117       character*10 zunites(ntr,nQ)
     118cym      character*10 znom(ntr,nQ)
     119cym      character*20 znoml(ntr,nQ)
     120cym      character*10 zunites(ntr,nQ)
     121      character*10,save :: znom(ntr,nQ)
     122      character*20,save :: znoml(ntr,nQ)
     123      character*10,save :: zunites(ntr,nQ)
     124
    118125      integer iave,itot,immc,itrs,istn
    119126      data iave,itot,immc,itrs,istn/1,2,3,4,5/

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

    r559 r566  
    118118      REAL time_0 , finvmaold(ip1jmp1,llm)
    119119
    120       LOGICAL lafin
     120cym      LOGICAL  lafin
     121      LOGICAL :: lafin=.false.
    121122      INTEGER ij,iq,l
    122123      INTEGER ik
Note: See TracChangeset for help on using the changeset viewer.