Changeset 2877 for LMDZ5/trunk/libf/phylmd

Timestamp:

May 12, 2017, 12:16:53 PM (8 years ago)

Author:

musat

Message:

Bug correction linked to smaller call frequency of convection
with respect to the physic'

Location:

LMDZ5/trunk/libf/phylmd

Files:

• phys_local_var_mod.F90 (modified) (3 diffs)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/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)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -156 +156 @@
 !!!       d_s_the, d_dens_the, &            ! due to thermals
        !                                  
+       ptconv, &
        wbeff, convoccur, zmax_th, &
        sens, flwp, fiwp,  &
@@ -876 +877 @@
     save iflag_cld_th
     !$OMP THREADPRIVATE(iflag_cld_th)
-    logical ptconv(klon,klev)
+!IM logical ptconv(klon,klev)  !passe dans phys_local_var_mod
     !IM cf. AM 081204 BEG
     logical ptconvth(klon,klev)