Changeset 2696 for LMDZ5/trunk/libf/phylmd/fisrtilp.F90

Timestamp:

Nov 2, 2016, 5:48:03 PM (8 years ago)

Author:

fhourdin

Message:

Correction pour option iflag_cloudth_vert=1

File:

• LMDZ5/trunk/libf/phylmd/fisrtilp.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/fisrtilp.F90

@@ -575 +575 @@
            if (iflag_cld_th>=5) then
 
-              if (iflag_cloudth_vert.EQ.2) then
+              if (iflag_cloudth_vert<=2) then
                call cloudth(klon,klev,k,ztv, &
                    zq,zqta,fraca, &
                    qcloud,ctot,zpspsk,paprs,ztla,zthl, &
                    ratqs,zqs,t)
-              elseif (iflag_cloudth_vert.EQ.3) then
+              elseif (iflag_cloudth_vert==3) then
                call cloudth_v3(klon,klev,k,ztv, &
                    zq,zqta,fraca, &