Ignore:
Timestamp:
Nov 2, 2016, 5:48:03 PM (8 years ago)
Author:
fhourdin
Message:

Correction pour option iflag_cloudth_vert=1

Location:
LMDZ5/trunk/libf/phylmd
Files:
1 deleted
1 edited

Legend:

Unmodified
Added
Removed

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

    r2686 r2696  
    575575           if (iflag_cld_th>=5) then
    576576
    577               if (iflag_cloudth_vert.EQ.2) then
     577              if (iflag_cloudth_vert<=2) then
    578578               call cloudth(klon,klev,k,ztv, &
    579579                   zq,zqta,fraca, &
    580580                   qcloud,ctot,zpspsk,paprs,ztla,zthl, &
    581581                   ratqs,zqs,t)
    582               elseif (iflag_cloudth_vert.EQ.3) then
     582              elseif (iflag_cloudth_vert==3) then
    583583               call cloudth_v3(klon,klev,k,ztv, &
    584584                   zq,zqta,fraca, &
Note: See TracChangeset for help on using the changeset viewer.