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

Timestamp:

Feb 18, 2010, 2:14:02 PM (14 years ago)

Author:

Laurent Fairhead

Message:

Modifications to thermals for TKE transport

---

Modifications aux thermiques pour le transport de la TKE

pbl_surface_mode.F90 : ok_flux_surf=.false. seulement pour klon>1
physiq.F : option iflag_pbl=10 pour transporter la TKE avec les thermiques.
calltherm.F90 : passage de iflag_thermals_ed en argument pour thermcell_plume
thermcell_main.F90 : Appel a plusieurs version de thermcell_plume en option
thermcell_plume.F90 : plusieurs versions dans le meme fichier (temporaire)
thermcell_height.F90 : verrue pour les cas ou les thermiques montent tout

en haut

yamada4 : inclusion de la diffusion verticale en option iflag_pbl=9

+ variables anciennement common, puis save/allocatable, remises en local

File:

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

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

@@ -204 +204 @@
      &      ,zmax0,f0,zw2,fraca)
           else if (iflag_thermals==15.or.iflag_thermals==16) then
+
+!            print*,'THERM iflag_thermas_ed=',iflag_thermals_ed
             CALL thermcell_main(itap,klon,klev,zdt  &
      &      ,pplay,paprs,pphi,debut  &
@@ -210 +212 @@
      &      ,zfm_therm,zentr_therm,zdetr_therm,zqasc,zqla,lmax  &
      &      ,ratqscth,ratqsdiff,zqsatth  &
-     &      ,r_aspect_thermals,l_mix_thermals  &
-     &      ,tau_thermals,Ale,Alp,lalim_conv,wght_th &
+     &      ,r_aspect_thermals,l_mix_thermals &
+     &      ,tau_thermals,iflag_thermals_ed,Ale,Alp,lalim_conv,wght_th &
      &      ,zmax0,f0,zw2,fraca)
            if (prt_level.gt.10) write(lunout,*)'Apres thermcell_main OK'