Changeset 2877 for LMDZ5/trunk/libf


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

    r2854 r2877  
    352352!!!
    353353!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
     354      LOGICAL, SAVE, ALLOCATABLE :: ptconv(:,:)
     355      !$OMP THREADPRIVATE(ptconv)
    354356!>jyg+nrlmd
    355357  !
    … …  
    676678      ALLOCATE(cdragm_x(klon), cdragm_w(klon))
    677679      ALLOCATE(kh(klon), kh_x(klon), kh_w(klon))
     680!
     681      ALLOCATE(ptconv(klon,klev))
    678682!
    679683      ALLOCATE(wbeff(klon), convoccur(klon), zmax_th(klon))
    … …  
    934938      DEALLOCATE(kh, kh_x, kh_w)
    935939!
     940      DEALLOCATE(ptconv)
     941!
    936942      DEALLOCATE(wbeff, convoccur, zmax_th)
    937943      DEALLOCATE(zq2m, zt2m, weak_inversion)

  • LMDZ5/trunk/libf/phylmd/physiq_mod.F90

    r2863 r2877  
    156156!!!       d_s_the, d_dens_the, &            ! due to thermals
    157157       !                                 
     158       ptconv, &
    158159       wbeff, convoccur, zmax_th, &
    159160       sens, flwp, fiwp,  &
    … …  
    876877    save iflag_cld_th
    877878    !$OMP THREADPRIVATE(iflag_cld_th)
    878     logical ptconv(klon,klev)
     879!IM logical ptconv(klon,klev)  !passe dans phys_local_var_mod
    879880    !IM cf. AM 081204 BEG
    880881    logical ptconvth(klon,klev)
Note: See TracChangeset for help on using the changeset viewer.