Changeset 2956 for LMDZ5/trunk/libf

Timestamp:

Jul 18, 2017, 12:01:04 AM (7 years ago)

Author:

jbmadeleine

Message:

Corrected rneblsvol in fisrtilp to make it equal to rnebls in the part
controlled by the large-scale lognormal PDF. Nb: rneblsvol stays equal to 0 if
iflag_cloudth_vert<3.

File:

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

LMDZ5/trunk/libf/phylmd/fisrtilp.F90

@@ -845 +845 @@
                  endif
 
+                 ! If vertical heterogeneity, change fraction by volume as well
+                 if (iflag_cloudth_vert>=3) then
+                   ctot_vol(i,k)=rneb(i,k)
+                   rneblsvol(i,k)=ctot_vol(i,k)
+                 endif
+
                  endif !convergence
+
                enddo ! boucle en i
 
@@ -989 +996 @@
            ENDIF
         ENDDO
+        ! If vertical heterogeneity, change fraction by volume as well
+        if (iflag_cloudth_vert>=3) then
+          ctot_vol(1:klon,k)=min(max(ctot_vol(1:klon,k),0.),1.)
+          rneblsvol(1:klon,k)=ctot_vol(1:klon,k)
+        endif
 
 !        ENDIF