Changeset 566 for LMDZ4/trunk/libf

Timestamp:

Dec 10, 2004, 12:27:46 PM (20 years ago)

Author:

lmdzadmin

Message:

Bugs divers YM
LF

Location:

LMDZ4/trunk/libf

Files:

• dyn3d/advtrac.F (modified) (1 diff)
• dyn3d/bilan_dyn.F (modified) (2 diffs)
• dyn3d/leapfrog.F (modified) (1 diff)
• phylmd/calltherm.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/advtrac.F

@@ -338 +338 @@
 
 c                  call clock(t_final)
-                  tps_cpu=t_final-t_initial
-                  cpuadv(iq)=cpuadv(iq)+tps_cpu
+cym                  tps_cpu=t_final-t_initial
+cym                  cpuadv(iq)=cpuadv(iq)+tps_cpu
 
        end DO

LMDZ4/trunk/libf/dyn3d/bilan_dyn.F

@@ -60 +60 @@
 
 
-      character*6 nom(nQ)
-      character*6 unites(nQ)
+cym      character*6 nom(nQ)
+cym      character*6 unites(nQ)
+      character*6,save :: nom(nQ)
+      character*6,save :: unites(nQ)
+
       character*10 file
       integer ifile
@@ -113 +116 @@
       parameter (ntr=5)
 
-      character*10 znom(ntr,nQ)
-      character*20 znoml(ntr,nQ)
-      character*10 zunites(ntr,nQ)
+cym      character*10 znom(ntr,nQ)
+cym      character*20 znoml(ntr,nQ)
+cym      character*10 zunites(ntr,nQ)
+      character*10,save :: znom(ntr,nQ)
+      character*20,save :: znoml(ntr,nQ)
+      character*10,save :: zunites(ntr,nQ)
+
       integer iave,itot,immc,itrs,istn
       data iave,itot,immc,itrs,istn/1,2,3,4,5/

LMDZ4/trunk/libf/dyn3d/leapfrog.F

@@ -118 +118 @@
       REAL time_0 , finvmaold(ip1jmp1,llm)
 
-      LOGICAL lafin
+cym      LOGICAL  lafin
+      LOGICAL :: lafin=.false.
       INTEGER ij,iq,l
       INTEGER ik

LMDZ4/trunk/libf/phylmd/calltherm.F

@@ -66 +66 @@
          do isplit=1,nsplit_thermals
 
+cym            CALL thermcell(klon,klev,zdt
+cym     s      ,pplay,paprs,pphi
+cym     s      ,u_seri,v_seri,t_seri,q_seri
+cym     s      ,d_u_the,d_v_the,d_t_the,d_q_the
+cym     s      ,zfm_therm,zentr_therm
+cym     s      ,r_aspect_thermals,l_mix_thermals,w2di_thermals
+cym     s      ,tho_thermals,3)
+
             CALL thermcell(klon,klev,zdt
      s      ,pplay,paprs,pphi
@@ -72 +80 @@
      s      ,zfm_therm,zentr_therm
      s      ,r_aspect_thermals,l_mix_thermals,w2di_thermals
-     s      ,tho_thermals,3)
+     s      ,tho_thermals)
 
 c  transformation de la derivee en tendance