Changeset 5614 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Apr 14, 2025, 9:21:07 PM (8 weeks ago)

Author:

evignon

Message:

Commission liée à un update majeur de la routine de condensation grande echelle suite au travail
de Lea, Audran et Etienne
Elle inclue une restructuration des routines pour clarifier le role "moniteur" de la routine lscp_main,
une mise à jour de la parametrisation de partitionnement de phase de Lea pour inclure les nuages de couche limite,
ainsi que des corrections des routines de precipitations "poprecip".
Convergence numerique verifiee en prod et debug pour les physiques NPv6.3 et 7.0.1c

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -623 +623 @@
       REAL, SAVE, ALLOCATABLE :: sigma2_icefracturb(:,:)
 !$OMP THREADPRIVATE(sigma2_icefracturb)
+      REAL, SAVE, ALLOCATABLE :: cldfraliqth(:,:)
+!$OMP THREADPRIVATE(cldfraliqth)
+      REAL, SAVE, ALLOCATABLE ::mean_icefracturbth(:,:)
+!$OMP THREADPRIVATE(mean_icefracturbth)
+      REAL, SAVE, ALLOCATABLE :: sigma2_icefracturbth(:,:)
+!$OMP THREADPRIVATE(sigma2_icefracturbth)
 
 ! variables de sorties MM
@@ -1201 +1207 @@
       ALLOCATE(sigma2_icefracturb(klon,klev))
       ALLOCATE(mean_icefracturb(klon,klev))
+      ALLOCATE(cldfraliqth(klon,klev))
+      ALLOCATE(sigma2_icefracturbth(klon,klev))
+      ALLOCATE(mean_icefracturbth(klon,klev))
       ALLOCATE(distcltop(klon,klev))
       ALLOCATE(temp_cltop(klon,klev))
@@ -1619 +1628 @@
       DEALLOCATE(sigma2_icefracturb)
       DEALLOCATE(mean_icefracturb)
+      DEALLOCATE(cldfraliqth)
+      DEALLOCATE(sigma2_icefracturbth)
+      DEALLOCATE(mean_icefracturbth)
       DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic)
       DEALLOCATE(distcltop)