Changeset 4088 for LMDZ6/trunk/libf/phylmdiso/phys_state_var_mod.F90

Timestamp:

Mar 10, 2022, 8:03:20 AM (3 years ago)

Author:

fhourdin

Message:

Correction isotopes + version identique sur phylmd

File:

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

LMDZ6/trunk/libf/phylmdiso/phys_state_var_mod.F90

@@ -100 +100 @@
       REAL, ALLOCATABLE, SAVE :: clwcon(:,:),rnebcon(:,:)
 !$OMP THREADPRIVATE(clwcon,rnebcon)
+      REAL, ALLOCATABLE, SAVE :: rneb_ancien(:,:)
+!$OMP THREADPRIVATE(rneb_ancien)
       REAL, ALLOCATABLE, SAVE :: qtc_cv(:,:),sigt_cv(:,:)
 !$OMP THREADPRIVATE(qtc_cv,sigt_cv)
@@ -549 +551 @@
 !!! Rom P <<<
       ALLOCATE(clwcon(klon,klev),rnebcon(klon,klev))
+      ALLOCATE(rneb_ancien(klon,klev))
       ALLOCATE(qtc_cv(klon,klev),sigt_cv(klon,klev))
       ALLOCATE(ratqs(klon,klev))
@@ -742 +745 @@
       DEALLOCATE(zthe, zpic, zval)
       DEALLOCATE(rugoro, t_ancien, q_ancien, clwcon, rnebcon)
-      DEALLOCATE(qs_ancien, ql_ancien)
+      DEALLOCATE(qs_ancien, ql_ancien, rneb_ancien)
       DEALLOCATE(prw_ancien, prlw_ancien, prsw_ancien)
       DEALLOCATE(qtc_cv,sigt_cv)