Changeset 2886 for LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90

Timestamp:

May 20, 2017, 9:41:16 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2865:2885 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90

@@ -352 +352 @@
 !!!
 !!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+      LOGICAL, SAVE, ALLOCATABLE :: ptconv(:,:)
+      !$OMP THREADPRIVATE(ptconv)
 !>jyg+nrlmd
   !
@@ -676 +678 @@
       ALLOCATE(cdragm_x(klon), cdragm_w(klon))
       ALLOCATE(kh(klon), kh_x(klon), kh_w(klon))
+!
+      ALLOCATE(ptconv(klon,klev))
 !
       ALLOCATE(wbeff(klon), convoccur(klon), zmax_th(klon))
@@ -934 +938 @@
       DEALLOCATE(kh, kh_x, kh_w)
 !
+      DEALLOCATE(ptconv)
+!
       DEALLOCATE(wbeff, convoccur, zmax_th)
       DEALLOCATE(zq2m, zt2m, weak_inversion)