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

Timestamp:

May 26, 2025, 5:20:01 PM (2 months ago)

Author:

aborella

Message:

Various small adjustments

File:

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

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

@@ -687 +687 @@
       REAL, SAVE, ALLOCATABLE :: qice_lincont(:,:), qice_circont(:,:)
       !$OMP THREADPRIVATE(qice_lincont, qice_circont)
+      REAL, SAVE, ALLOCATABLE :: qradice_lincont(:,:), qradice_circont(:,:)
+      !$OMP THREADPRIVATE(qradice_lincont, qradice_circont)
       REAL, SAVE, ALLOCATABLE :: dcfl_cir(:,:), dqtl_cir(:,:)
       !$OMP THREADPRIVATE(dcfl_cir, dqtl_cir)
@@ -1272 +1274 @@
       ALLOCATE(potcontfraP(klon,klev), potcontfraNP(klon,klev))
       ALLOCATE(qice_lincont(klon,klev), qice_circont(klon,klev))
+      ALLOCATE(qradice_lincont(klon,klev), qradice_circont(klon,klev))
       ALLOCATE(dcfl_cir(klon,klev), dqtl_cir(klon,klev))
       ALLOCATE(dcfl_ini(klon,klev), dqil_ini(klon,klev), dqtl_ini(klon,klev))
@@ -1694 +1697 @@
       DEALLOCATE(d_q_avi, flight_dist, flight_h2o)
       DEALLOCATE(Tcritcont, qcritcont, potcontfraP, potcontfraNP)
-      DEALLOCATE(qice_lincont, qice_circont, dcfl_cir, dqtl_cir, dcfl_ini, dqil_ini)
+      DEALLOCATE(qice_lincont, qice_circont, qradice_lincont, qradice_circont)
+      DEALLOCATE(dcfl_cir, dqtl_cir, dcfl_ini, dqil_ini)
       DEALLOCATE(dqtl_ini, dcfl_sub, dqil_sub, dqtl_sub, dcfl_mix, dqil_mix, dqtl_mix)
       DEALLOCATE(dcfc_sub, dqic_sub, dqtc_sub, dcfc_mix, dqic_mix, dqtc_mix)