Changeset 1399 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calltherm.F90

Timestamp:

Jun 8, 2010, 10:29:11 AM (14 years ago)

Author:

idelkadi

Message:

Modifications relatives a l'inclusion des nouveaux nuages d'Arnaud Jam

• calltherm.F90 : remontee de variables suplementaires.

Passage de ztv, zpspsk, zthla, zthl en argument

• fisrtilp.F : le programme de nuages avec appel a cloudth

Ajout des arguments : zqta, fraca, ztv, zpspsk, ztla, ztlh,
iflag_cldcon

• physiq.F : appel modifie a calltherm et fisrtilp
• thermcell_main.F90 : changement dans les flag_thermals_ed
• thermcell_plume.F90 : version modifiee entrainement et detrainement

(on retrouve la precendente pour iflag_thermals_ed=10)

• cloudth.F90 : PDF d'eau bi-gaussiennes

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calltherm.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calltherm.F90

@@ -8 +8 @@
      &      ,fm_therm,entr_therm,detr_therm,zqasc,clwcon0,lmax,ratqscth,  &
      &       ratqsdiff,zqsatth,Ale_bl,Alp_bl,lalim_conv,wght_th, &
-     &       zmax0,f0,zw2,fraca)
+     &       zmax0,f0,zw2,fraca,ztv,zpspsk,ztla,zthl)
 
       USE dimphy
@@ -49 +49 @@
       real zqla(klon,klev)
       real zqta(klon,klev)
+      real ztv(klon,klev)
+      real zpspsk(klon,klev)
+      real ztla(klon,klev)
+      real zthl(klon,klev)
       real wmax_sec(klon)
       real zmax_sec(klon)
@@ -214 +218 @@
      &      ,r_aspect_thermals,l_mix_thermals &
      &      ,tau_thermals,iflag_thermals_ed,Ale,Alp,lalim_conv,wght_th &
-     &      ,zmax0,f0,zw2,fraca)
+     &      ,zmax0,f0,zw2,fraca,ztv,zpspsk &
+     &      ,ztla,zthl)
            if (prt_level.gt.10) write(lunout,*)'Apres thermcell_main OK'
          else