Changeset 5927 for LMDZ6/trunk/libf/phylmdiso/reevap.F90

Timestamp:

Dec 12, 2025, 5:26:10 PM (7 weeks ago)

Author:

Sebastien Nguyen

Message:

Changes to compile LMDZ-OR-ISO and wrtie output variables Rsol isotopes soil ratio) xtevap xtcoastal xtrivflu. Changes from CA and ND to write output variables xtprw (precipitatble water) uxt and vxt (meridional and zonal advected humidity) Rlandice and xtsnow.

File:

• LMDZ6/trunk/libf/phylmdiso/reevap.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/reevap.F90

@@ -25 +25 @@
     USE yomcst_mod_h
     USE yoethf_mod_h
-IMPLICIT none
+
+    IMPLICIT NONE
+
     !>======================================================================
 
     INTEGER klon,klev,iflag_ice_thermo
-    REAL, DIMENSION(klon,klev), INTENT(IN) :: t_seri
-    REAL, DIMENSION(klon,klev,nqtot), INTENT(IN) ::     qx
-    REAL, DIMENSION(klon,klev), INTENT(OUT) :: d_t_eva
-    REAL, DIMENSION(klon,klev,nqtot), INTENT(OUT) ::    d_qx_eva
+    REAL, DIMENSION(klon,klev),       INTENT(IN)  :: t_seri
+    REAL, DIMENSION(klon,klev,nqtot), INTENT(IN)  :: qx
+    REAL, DIMENSION(klon,klev),       INTENT(OUT) :: d_t_eva
+    REAL, DIMENSION(klon,klev,nqtot), INTENT(OUT) :: d_qx_eva
 
     REAL za,zb,zdelta,zlvdcp,zlsdcp
@@ -39 +41 @@
 
     !--------Stochastic Boundary Layer Triggering: ALE_BL--------
-    !---Propri\'et\'es du thermiques au LCL
+    !---Proprietes du thermiques au LCL
 
     include "FCTTRE.h"
@@ -89 +91 @@
         ELSE
               
-             !CR: on r\'e-\'evapore eau liquide et glace
+             !CR: on re-evapore eau liquide et glace
 
              !        zdelta = MAX(0.,SIGN(1.,RTT-t_seri(i,k)))
@@ -111 +113 @@
         ENDIF
 
-
       ENDDO
     ENDDO