Changeset 5794 for LMDZ6/branches/contrails/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 29, 2025, 5:41:19 PM (11 days ago)

Author:

aborella

Message:

Added an option to increase cirrus cover for radiative transfer (Brooks et al, 2005)

File:

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

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

@@ -724 +724 @@
       REAL, SAVE, ALLOCATABLE :: qice_cont(:,:)
       !$OMP THREADPRIVATE(qice_cont)
-      REAL, SAVE, ALLOCATABLE :: qradice_cont(:,:)
-      !$OMP THREADPRIVATE(qradice_cont)
+      REAL, SAVE, ALLOCATABLE :: contfra(:,:), qradice_cont(:,:)
+      !$OMP THREADPRIVATE(contfra, qradice_cont)
       REAL, SAVE, ALLOCATABLE :: dcfc_ini(:,:), dqic_ini(:,:), dqtc_ini(:,:), dnic_ini(:,:)
       !$OMP THREADPRIVATE(dcfc_ini, dqic_ini, dqtc_ini, dnic_ini)
@@ -1334 +1334 @@
       ALLOCATE(fsurv_contrails(klon,klev), section_contrails(klon,klev))
       ALLOCATE(qice_cont(klon,klev))
-      ALLOCATE(qradice_cont(klon,klev))
+      ALLOCATE(contfra(klon,klev), qradice_cont(klon,klev))
       ALLOCATE(dcfc_ini(klon,klev), dqic_ini(klon,klev), dqtc_ini(klon,klev), dnic_ini(klon,klev))
       ALLOCATE(dcfc_sub(klon,klev), dqic_sub(klon,klev), dqtc_sub(klon,klev), dnic_sub(klon,klev))
@@ -1779 +1779 @@
       DEALLOCATE(Tcritcont, qcritcont, potcontfraP, potcontfraNP)
       DEALLOCATE(AEI_contrails, AEI_surv_contrails, fsurv_contrails, section_contrails)
-      DEALLOCATE(qice_cont, qradice_cont)
+      DEALLOCATE(qice_cont, contfra, qradice_cont)
       DEALLOCATE(dcfc_ini, dqic_ini, dqtc_ini, dnic_ini)
       DEALLOCATE(dcfc_sub, dqic_sub, dqtc_sub, dnic_sub)