Changeset 2499 for LMDZ5/trunk/libf/phylmd/phys_local_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_local_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -23 +23 @@
       REAL, SAVE, ALLOCATABLE :: d_ql_dyn(:,:), d_qs_dyn(:,:)
       !$OMP THREADPRIVATE(d_ql_dyn, d_qs_dyn)
+      REAL, SAVE, ALLOCATABLE :: d_q_dyn2d(:), d_ql_dyn2d(:), d_qs_dyn2d(:)
+      !$OMP THREADPRIVATE(d_q_dyn2d, d_ql_dyn2d, d_qs_dyn2d)
       REAL, SAVE, ALLOCATABLE :: d_u_dyn(:,:), d_v_dyn(:,:)
       !$OMP THREADPRIVATE(d_u_dyn, d_v_dyn)
@@ -404 +406 @@
       allocate(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
       allocate(d_ql_dyn(klon,klev),d_qs_dyn(klon,klev))
+      allocate(d_q_dyn2d(klon),d_ql_dyn2d(klon),d_qs_dyn2d(klon))
       allocate(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
       allocate(d_tr_dyn(klon,klev,nbtr))                   !RomP
@@ -619 +622 @@
       deallocate(d_t_dyn,d_q_dyn)
       deallocate(d_ql_dyn,d_qs_dyn)
+      deallocate(d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d)
       deallocate(d_u_dyn,d_v_dyn)
       deallocate(d_tr_dyn)                      !RomP