Changeset 5779 for LMDZ6/branches/contrails/libf/phylmd/lmdz_aviation.f90

Timestamp:

Jul 16, 2025, 3:40:25 PM (13 days ago)

Author:

aborella

Message:

Added autoconversion for contrails + various small modifications for residual bugs

File:

• LMDZ6/branches/contrails/libf/phylmd/lmdz_aviation.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/lmdz_aviation.f90

@@ -134 +134 @@
 DO i = 1, klon
   IF ( keepgoing(i) ) THEN
-    Tcritcont(i)    = 0.
     qcritcont(i)    = 0.
     potcontfraP(i)  = 0.
@@ -162 +161 @@
 
 DO i = 1, klon
-  IF ( keepgoing(i) .AND. pt_pron_clds(i) .AND. ( temp(i) .LE. temp_nowater ) ) THEN
+  IF ( keepgoing(i) .AND. pt_pron_clds(i) ) THEN
     
     psatl_crit = qsatl_crit(i) / ( EPS_W + ( 1. - EPS_W ) * qsatl_crit(i) ) * pplay(i)