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

Timestamp:

Jan 19, 2025, 6:48:10 PM (5 hours ago)

Author:

jyg

Message:

New outputs :

+ coef_clos = [conv mass flux given by Alp closure]/[conv mass flux given by Emanuel scheme closure]
+ coef_clos_eff = effective coefficient used in the convective scheme.

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -496 +496 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: proba_notrig, random_notrig
 !$OMP THREADPRIVATE(proba_notrig, random_notrig)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: coef_clos, coef_clos_eff
+!$OMP THREADPRIVATE(coef_clos, coef_clos_eff)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fsolsw, wfbils
 !$OMP THREADPRIVATE(fsolsw, wfbils)
@@ -1102 +1104 @@
       alp_bl_stat(:)=0
       ALLOCATE(proba_notrig(klon), random_notrig(klon))
+      ALLOCATE(coef_clos(klon), coef_clos_eff(klon))
 
       ALLOCATE(dnwd0(klon, klev))
@@ -1520 +1523 @@
       DEALLOCATE(alp_bl_stat, n2, s2, strig, zcong, zlcl_th)
       DEALLOCATE(proba_notrig, random_notrig)
+      DEALLOCATE(coef_clos, coef_clos_eff)
 !FC
       DEALLOCATE(zxfluxq,zxfluxt)