Changeset 2499 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Apr 24, 2016, 12:38:19 PM (8 years ago)

Author:

oboucher

Message:

Various changes to diagnose properly 2D tendency in q, ql, qs from dynamics
as previous diagnostics were incorrect.
Cleaned up all such diagnostics in physiq_mod.F90 as well

File:

• LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -66 +66 @@
       REAL, ALLOCATABLE, SAVE :: ql_ancien(:,:), qs_ancien(:,:)
 !$OMP THREADPRIVATE(ql_ancien, qs_ancien)
+      REAL, ALLOCATABLE, SAVE :: prw_ancien(:), prlw_ancien(:), prsw_ancien(:)
+!$OMP THREADPRIVATE(prw_ancien, prlw_ancien, prsw_ancien)
       REAL, ALLOCATABLE, SAVE :: u_ancien(:,:), v_ancien(:,:)
 !$OMP THREADPRIVATE(u_ancien, v_ancien)
@@ -444 +446 @@
       ALLOCATE(t_ancien(klon,klev), q_ancien(klon,klev))
       ALLOCATE(ql_ancien(klon,klev), qs_ancien(klon,klev))
+      ALLOCATE(prw_ancien(klon), prlw_ancien(klon), prsw_ancien(klon))
       ALLOCATE(u_ancien(klon,klev), v_ancien(klon,klev))
 !!! Rom P >>>
@@ -605 +608 @@
       deallocate(rugoro, t_ancien, q_ancien, clwcon, rnebcon)
       deallocate(qs_ancien, ql_ancien)
+      deallocate(prw_ancien, prlw_ancien, prsw_ancien)
       deallocate(qtc_cv,sigt_cv)
-      deallocate(        u_ancien, v_ancien                 )
-      deallocate(        tr_ancien)                           !RomP
+      deallocate(u_ancien, v_ancien)
+      deallocate(tr_ancien)                           !RomP
       deallocate(ratqs, pbl_tke,coefh,coefm)
 !nrlmd<