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

Timestamp:

Jul 28, 2025, 6:44:28 PM (11 days ago)

Author:

aborella

Message:

Major modifs to treatment of contrails (from 2 classes to 2 moments) + diagnostics. Increased numerical efficiency

File:

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

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

@@ -142 +142 @@
       REAL, ALLOCATABLE, SAVE :: qvcon(:,:), qccon(:,:)
 !$OMP THREADPRIVATE(qvcon, qccon)
-      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)
+      REAL, ALLOCATABLE, SAVE :: cfc_ancien(:,:), qtc_ancien(:,:), nic_ancien(:,:)
+!$OMP THREADPRIVATE(cfc_ancien, qtc_ancien, nic_ancien)
 !!! RomP >>>
       REAL, ALLOCATABLE, SAVE :: tr_ancien(:,:,:)
@@ -662 +660 @@
       ALLOCATE(u_ancien(klon,klev), v_ancien(klon,klev))
       ALLOCATE(cf_ancien(klon,klev), qvc_ancien(klon,klev))
-      ALLOCATE(cfl_ancien(klon,klev), cfc_ancien(klon,klev))
-      ALLOCATE(qtl_ancien(klon,klev), qtc_ancien(klon,klev))
+      ALLOCATE(cfc_ancien(klon,klev), qtc_ancien(klon,klev), nic_ancien(klon,klev))
       ALLOCATE(qvcon(klon,klev), qccon(klon,klev))
 !!! Rom P >>>
@@ -914 +911 @@
       DEALLOCATE(u_ancien, v_ancien)
       DEALLOCATE(cf_ancien, qvc_ancien)
-      DEALLOCATE(cfl_ancien, cfc_ancien, qtl_ancien, qtc_ancien)
+      DEALLOCATE(cfc_ancien, qtc_ancien, nic_ancien)
       DEALLOCATE(qvcon, qccon)
       DEALLOCATE(tr_ancien)                           !RomP