Changeset 2687 for LMDZ5/branches/testing/libf

Timestamp:

Oct 27, 2016, 10:31:01 AM (8 years ago)

Author:

musat

Message:

Back to the last (2669) testing defined by Laurent

File:

• LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

@@ -15 +15 @@
   USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
   USE print_control_mod, ONLY: prt_level, lunout
-  USE cloudth_mod 
   IMPLICIT none
   !======================================================================
@@ -575 +574 @@
            if (iflag_cld_th>=5) then
 
-              if (iflag_cloudth_vert.EQ.2) then
-               call cloudth(klon,klev,k,ztv, &
+              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
-               call cloudth_v3(klon,klev,k,ztv, &
-                   zq,zqta,fraca, &
-                   qcloud,ctot,zpspsk,paprs,ztla,zthl, &
-                   ratqs,zqs,t)
-              endif
+
               do i=1,klon
                  rneb(i,k)=ctot(i,k)