Changeset 2706 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Nov 21, 2016, 12:36:31 AM (8 years ago)

Author:

fhourdin

Message:

Complement a la modification precedente

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -53 +53 @@
       !$OMP THREADPRIVATE(d_t_ajs_x, d_q_ajs_x)
 !>nrlmd
-      REAL, SAVE, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:)
-      !$OMP THREADPRIVATE(d_t_eva,d_q_eva)
+      REAL, SAVE, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:),d_ql_eva(:,:),d_qi_eva(:,:)
+      !$OMP THREADPRIVATE(d_t_eva,d_q_eva,d_ql_eva,d_qi_eva)
       REAL, SAVE, ALLOCATABLE :: d_t_lscst(:,:),d_q_lscst(:,:)
       !$OMP THREADPRIVATE(d_t_lscst,d_q_lscst)
@@ -512 +512 @@
       allocate(d_u_ajs(klon,klev),d_v_ajs(klon,klev))
       allocate(d_t_eva(klon,klev),d_q_eva(klon,klev))
+      allocate(d_ql_eva(klon,klev),d_qi_eva(klon,klev))
       allocate(d_t_lscst(klon,klev),d_q_lscst(klon,klev))
       allocate(d_t_lscth(klon,klev),d_q_lscth(klon,klev))
@@ -774 +775 @@
       deallocate(d_u_ajs,d_v_ajs)
       deallocate(d_t_eva,d_q_eva)
+      deallocate(d_ql_eva,d_qi_eva)
       deallocate(d_t_lscst,d_q_lscst)
       deallocate(d_t_lscth,d_q_lscth)