Changeset 5641 for LMDZ6/branches/contrails/libf/phylmd/phys_state_var_mod.F90

Timestamp:

May 1, 2025, 6:00:03 PM (2 months ago)

Author:

aborella

Message:

Changed the contrails classes that are advected

File:

• LMDZ6/branches/contrails/libf/phylmd/phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/phys_state_var_mod.F90 ¶

@@ -96 +96 @@
       REAL, ALLOCATABLE, SAVE :: qvcon(:,:), qccon(:,:)
 !$OMP THREADPRIVATE(qvcon, qccon)
-      REAL, ALLOCATABLE, SAVE :: cfa_ancien(:,:), pcf_ancien(:,:)
-!$OMP THREADPRIVATE(cfa_ancien, pcf_ancien)
-      REAL, ALLOCATABLE, SAVE :: qva_ancien(:,:), qia_ancien(:,:)
-!$OMP THREADPRIVATE(qva_ancien, qia_ancien)
+      REAL, ALLOCATABLE, SAVE :: cfl_ancien(:,:), cfc_ancien(:,:)
+!$OMP THREADPRIVATE(cfl_ancien, cfc_ancien)
+      REAL, ALLOCATABLE, SAVE :: qtl_ancien(:,:), qtc_ancien(:,:)
+!$OMP THREADPRIVATE(qtl_ancien, qtc_ancien)
 !!! RomP >>>
       REAL, ALLOCATABLE, SAVE :: tr_ancien(:,:,:)
@@ -594 +594 @@
       ALLOCATE(u_ancien(klon,klev), v_ancien(klon,klev))
       ALLOCATE(cf_ancien(klon,klev), qvc_ancien(klon,klev))
-      ALLOCATE(cfa_ancien(klon,klev), pcf_ancien(klon,klev))
-      ALLOCATE(qva_ancien(klon,klev), qia_ancien(klon,klev))
+      ALLOCATE(cfl_ancien(klon,klev), cfc_ancien(klon,klev))
+      ALLOCATE(qtl_ancien(klon,klev), qtc_ancien(klon,klev))
       ALLOCATE(qvcon(klon,klev), qccon(klon,klev))
 !!! Rom P >>>
@@ -824 +824 @@
       DEALLOCATE(qtc_cv,sigt_cv,detrain_cv,fm_cv)
       DEALLOCATE(u_ancien, v_ancien)
-      DEALLOCATE(cf_ancien, qvc_ancien, cfa_ancien, pcf_ancien)
-      DEALLOCATE(qva_ancien, qia_ancien)
+      DEALLOCATE(cf_ancien, qvc_ancien)
+      DEALLOCATE(cfl_ancien, cfc_ancien, qtl_ancien, qtc_ancien)
       DEALLOCATE(qvcon, qccon)
       DEALLOCATE(tr_ancien)                           !RomP