Changeset 3201 for LMDZ6/branches/IPSLCM6.0.15/libf

Timestamp:

Feb 12, 2018, 10:05:51 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Inclusion of r3199 from trunk

Pour la convergence independamment du decoupage de domaine.
Pour la convection, le niveau maximum k_upper_cv etait fixe
sur un profil d'altitude au milieu du domaine klon/2+1/klon
dependant donc du decoupage.
Remplace par un test en presnivs
-7*log(presnivs(k)/presnivs(1)) > 25.
independant du decoupage.
FH

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

@@ -2629 +2629 @@
           ! Calculate the upmost level of deep convection loops: k_upper_cv
           !  (near 22 km)
-          izero = klon/2+1/klon
           k_upper_cv = klev
+          !izero = klon/2+1/klon
+          !DO k = klev,1,-1
+          !   IF (pphi(izero,k) > 22.e4) k_upper_cv = k
+          !ENDDO
+          ! FH : nouveau calcul base sur un profil global sans quoi
+          ! le modele etait sensible au decoupage de domaines
           DO k = klev,1,-1
-             IF (pphi(izero,k) > 22.e4) k_upper_cv = k
+             IF (-7*log(presnivs(k)/presnivs(1)) > 25.) k_upper_cv = k
           ENDDO
           IF (prt_level .ge. 5) THEN