Changeset 2516 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

May 19, 2016, 8:58:23 PM (8 years ago)

Author:

fhourdin

Message:

Introduction d'un seuil oliqmax sur l'eau condensée liquide maximum
conservée dans l'atmosphère.
Par défaut, oliqmax=999 et la correction est inactive.
Pour des valeurs plus faibles, l'eau en sus est convertie en
précipitation ajoutée à rain_lsc (plul dans les sorties).

Cette pluie additionelle est également sauvegardée dans rain_num

et sortie dans plun.

Cette modification est une tentative pour résoudre certains plantages

en haute résolution.

File:

• LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -281 +281 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat, zxtsol, snow_lsc, zxfqfonte
 !$OMP THREADPRIVATE(zxfluxlat, zxtsol, snow_lsc, zxfqfonte)
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxqsurf, rain_lsc
-!$OMP THREADPRIVATE(zxqsurf, rain_lsc)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxqsurf, rain_lsc, rain_num
+!$OMP THREADPRIVATE(zxqsurf, rain_lsc, rain_num)
 !
 !jyg+nrlmd<
@@ -541 +541 @@
       ALLOCATE(zxtsol(klon), snow_lsc(klon), zxfqfonte(klon), zxqsurf(klon))
       ALLOCATE(rain_lsc(klon))
+      ALLOCATE(rain_num(klon))
 !
       ALLOCATE(sens_x(klon), sens_w(klon))
@@ -746 +747 @@
       DEALLOCATE(zxtsol, snow_lsc, zxfqfonte, zxqsurf)
       DEALLOCATE(rain_lsc)
+      DEALLOCATE(rain_num)
 !
       DEALLOCATE(sens_x, sens_w)