Changeset 2879 for LMDZ5/branches


Ignore:
Timestamp:
May 15, 2017, 10:59:45 AM (7 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of r2877 corrections in CM6.0.10-LR branch

Location:
LMDZ5/branches/IPSLCM6.0.10/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM6.0.10/libf/phylmd/phys_local_var_mod.F90

    r2845 r2879  
    346346!!!
    347347!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
     348      LOGICAL, SAVE, ALLOCATABLE :: ptconv(:,:)
     349!$OMP THREADPRIVATE(ptconv)
    348350!>jyg+nrlmd
    349351  !
    … …  
    673675      ALLOCATE(cdragm_x(klon), cdragm_w(klon))
    674676      ALLOCATE(kh(klon), kh_x(klon), kh_w(klon))
     677!
     678      ALLOCATE(ptconv(klon,klev))
    675679!
    676680      ALLOCATE(wbeff(klon), convoccur(klon), zmax_th(klon))
    … …  
    931935      DEALLOCATE(kh, kh_x, kh_w)
    932936!
     937      DEALLOCATE(ptconv)
     938!
    933939      DEALLOCATE(wbeff, convoccur, zmax_th)
    934940      DEALLOCATE(zq2m, zt2m, weak_inversion)

  • LMDZ5/branches/IPSLCM6.0.10/libf/phylmd/physiq_mod.F90

    r2839 r2879  
    155155!!!       d_s_the, d_dens_the, &            ! due to thermals
    156156       !                                 
     157       ptconv, &
    157158       wbeff, convoccur, zmax_th, &
    158159       sens, flwp, fiwp,  &
    … …  
    875876    save iflag_cld_th
    876877    !$OMP THREADPRIVATE(iflag_cld_th)
    877     logical ptconv(klon,klev)
     878!IM     logical ptconv(klon,klev) !passe dans phys_local_var_mod
    878879    !IM cf. AM 081204 BEG
    879880    logical ptconvth(klon,klev)
Note: See TracChangeset for help on using the changeset viewer.