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

Timestamp:

Mar 28, 2022, 6:23:04 PM (3 years ago)

Author:

evignon

Message:

option pour inclure les effets radiatifs des chutes de neige
plus corrections du schema des nuages de phase mixte

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -438 +438 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: cldemi, cldfra, cldtau, fiwc, fl, re, flwc
 !$OMP THREADPRIVATE(cldemi, cldfra, cldtau, fiwc, fl, re, flwc)
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: qlth, qith, qsith
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: qlth, qith, qsith, with
 !$OMP THREADPRIVATE(qlth, qith, qsith)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq, ref_ice, theta, zphi
@@ -778 +778 @@
       ALLOCATE(rain_lsc(klon))
       ALLOCATE(rain_num(klon))
-      ALLOCATE(qlth(klon,klev), qith(klon,klev), qsith(klon,klev))
+      ALLOCATE(qlth(klon,klev), qith(klon,klev), qsith(klon,klev), with(klon,klev))
       !
       ALLOCATE(sens_x(klon), sens_w(klon))
@@ -1089 +1089 @@
       DEALLOCATE(rain_lsc)
       DEALLOCATE(rain_num)
-      DEALLOCATE(qlth, qith, qsith)
+      DEALLOCATE(qlth, qith, qsith, with)
 !
       DEALLOCATE(sens_x, sens_w)