Changeset 1311 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_height.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/thermcell_height.F90 (modified) (1 diff)

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

@@ -40 +40 @@
          enddo
       enddo
+
+! On traite le cas particulier qu'il faudrait éviter ou le thermique
+! atteind le haut du modele ...
+      do ig=1,ngrid
+      if ( zw2(ig,nlay) > 1.e-10 ) then
+          print*,'WARNING !!!!! W2 thermiques non nul derniere couche '
+          lmax(ig)=nlay
+      endif
+      enddo
+
 ! pas de thermique si couche 1 stable
       do ig=1,ngrid