Changeset 566 for LMDZ4/trunk/libf/phylmd

Timestamp:

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

Author:

lmdzadmin

Message:

Bugs divers YM
LF

File:

• LMDZ4/trunk/libf/phylmd/calltherm.F (modified) (2 diffs)

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