Changeset 5143 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/reevap.F90

Timestamp:

Jul 29, 2024, 5:47:53 PM (4 months ago)

Author:

abarral

Message:

Put YOEGWD.h, FCTTRE.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/reevap.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/reevap.F90

@@ -15 +15 @@
 #endif
 #endif
+
+    USE lmdz_YOETHF
+    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
+
     IMPLICIT NONE
     !>======================================================================
@@ -27 +31 @@
     INTEGER i,k,ixt,ivapcur,iliqcur,isolcur
 
-
     !--------Stochastic Boundary Layer Triggering: ALE_BL--------
     !---Propri\'et\'es du thermiques au LCL
     include "YOMCST.h"
-    include "YOETHF.h"
-    include "FCTTRE.h"
     !IM 100106 BEG : pouvoir sortir les ctes de la physique