Changeset 927 for LMDZ4/trunk/libf/phylmd/calltherm.F90

Timestamp:

Mar 14, 2008, 1:12:38 PM (17 years ago)

Author:

lmdzadmin

Message:

Ajout variables zmax0, f0 dans le startphy.nc FH
IM

File:

• LMDZ4/trunk/libf/phylmd/calltherm.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/calltherm.F90

@@ -7 +7 @@
      &      ,d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs  &
      &      ,fm_therm,entr_therm,zqasc,clwcon0,lmax,ratqscth,  &
-     &       ratqsdiff,zqsatth,Ale_bl,Alp_bl,lalim_conv,wght_th)
+     &       ratqsdiff,zqsatth,Ale_bl,Alp_bl,lalim_conv,wght_th, &
+     &       zmax0,f0)
 
       implicit none
@@ -59 +60 @@
       real Alp(klon)
 !RC
+      !on garde le zmax du pas de temps precedent
+      real zmax0(klon), f0(klon)
 !********************************************************
 
@@ -171 +174 @@
      &      ,ratqscth,ratqsdiff,zqsatth  &
      &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
-     &      ,tho_thermals,Ale,Alp,lalim_conv,wght_th)
+     &      ,tho_thermals,Ale,Alp,lalim_conv,wght_th &
+     &      ,zmax0,f0)
          endif