Changeset 4003 for LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

Timestamp:

Nov 9, 2021, 5:26:20 PM (3 years ago)

Author:

Laurent Fairhead

Message:

Resolving some isotope issues introduced by r3999
LF

File:

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

LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

@@ -557 +557 @@
       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
+!$OMP THREADPRIVATE(qlth, qith)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq, ref_ice, theta, zphi
 !$OMP THREADPRIVATE(ref_liq, ref_ice, theta, zphi)
@@ -898 +900 @@
       ALLOCATE(rain_lsc(klon))
       ALLOCATE(rain_num(klon))
+      ALLOCATE(qlth(klon,klev), qith(klon,klev))
+      !
 #ifdef ISO
       ALLOCATE(xtevap(ntraciso,klon))
@@ -1268 +1272 @@
       DEALLOCATE(rain_lsc)
       DEALLOCATE(rain_num)
+      DEALLOCATE(qlth, qith)
 !
       DEALLOCATE(sens_x, sens_w)