Changeset 5191 for LMDZ6/trunk/libf

Timestamp:

Sep 15, 2024, 8:35:45 PM (3 months ago)

Author:

evignon

Message:

modification sur l'appel à icefrac dans lscp pour retrouver la convergence avec la testing precedente
Etienne, Laurent et Audran

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp.F90

@@ -953 +953 @@
 
         ! Partition function depending on temperature
-        CALL icefrac_lscp(klon, Tbef, iflag_ice_thermo, zdistcltop, ztemp_cltop, zfice, dzfice)
+        CALL icefrac_lscp(klon,zt,iflag_ice_thermo, zdistcltop,ztemp_cltop,zfice,dzfice)
 
         ! Partition function depending on tke for non shallow-convective clouds 
@@ -1340 +1340 @@
                 znebprecipcld(i)=0.0
             ENDIF
-        !IF ( ((1-zfice(i))*zoliq(i) .GT. 0.) .AND. (zt(i) .LE. 233.15) ) THEN
-        !print*,'WARNING LEA OLIQ A <-40°C '
-        !print*,'zt,Tbef,oliq,oice,cldfraliq,icefrac,rneb',zt(i),Tbef(i),(1-zfice(i))*zoliq(i),zfice(i)*zoliq(i),cldfraliq(i,k),zfice(i),rneb(i,k)
-        !ENDIF 
         ENDDO