Changeset 4715 for LMDZ6/trunk/libf/phylmd/nuage.F90

Timestamp:

Oct 5, 2023, 4:14:22 PM (12 months ago)

Author:

Laurent Fairhead

Message:

Final (hopefully) commit from the newmicro replayisation workshop. The final USE statements that were
still included in the cloud_optics_prop routine were moved to the call_cloud_optics_prop routine that
sets up the interface between LMDZ and the parametrization.
LF for LR, MCD, AI, EV, JBM

File:

• LMDZ6/trunk/libf/phylmd/nuage.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/nuage.F90

@@ -120 +120 @@
         ENDIF
 
-        IF ((.NOT. ptconv(i,k)) .AND. ok_new_lscp .AND. ok_icefra_lscp) THEN
-        ! EV: take the ice fraction directly from the lscp code
-        ! consistent only for non convective grid points
-        ! critical for mixed phase clouds
-            DO i=1,klon
-            zfice(i)=picefra(i,k)
-            ENDDO
+    IF (ok_new_lscp .AND. ok_icefra_lscp) THEN
+    ! EV: take the ice fraction directly from the lscp code
+    ! consistent only for non convective grid points
+    ! critical for mixed phase clouds
+        DO i=1,klon
+        IF (.NOT. ptconv(i,k)) THEN
+           zfice(i)=picefra(i,k)
         ENDIF
+        ENDDO
+    ENDIF