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

Timestamp:

Nov 28, 2025, 5:34:54 PM (13 days ago)

Author:

Sebastien Nguyen

Message:

rephase LMDZISO with 5864 version of phylmd + bug fixes in physiq_mod + other bugs in isoverif sections. Code now compiles and runs with -debug -isotopes true -isoverif. There are still isoverif error messages for Dexcess getting greater than 1000 on some points at some moments.

File:

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

LMDZ6/trunk/libf/phylmdiso/reevap.F90

@@ -1 @@
-  SUBROUTINE reevap (klon,klev,iflag_ice_thermo,t_seri,qx, &
+!$gpum horizontal klon
+MODULE reevap_mod
+  PRIVATE
+
+  PUBLIC reevap
+
+  CONTAINS
+
+SUBROUTINE reevap (klon,klev,iflag_ice_thermo,t_seri,qx, &
    &         d_t_eva,d_qx_eva)
 
@@ -21 +29 @@
 
     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
@@ -112 +120 @@
 
 END SUBROUTINE reevap
+
+END MODULE reevap_mod