Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

Timestamp:

Jul 29, 2024, 11:01:04 PM (7 weeks ago)

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

@@ -1172 +1172 @@
     !   sans WTG rajouter une advection horizontale
     !----------------------------------------------------------------------
+    USE lmdz_yomcst
+
     IMPLICIT NONE
-    include "YOMCST.h"
     !        argument
     INTEGER llm
@@ -1244 +1245 @@
     !   sans WTG rajouter une advection horizontale
     !----------------------------------------------------------------------
+    USE lmdz_yomcst
+
     IMPLICIT NONE
-    include "YOMCST.h"
     !        argument
     INTEGER llm, nqtot
@@ -1318 +1320 @@
     ! ========================================================
     USE dimphy
-    USE lmdz_YOETHF
+    USE lmdz_yoethf
     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
+    USE lmdz_yomcst
 
     IMPLICIT NONE
@@ -1337 +1340 @@
     INTEGER k, i
     REAL zx_qs
-
-    ! Declaration des constantes et des fonctions thermodynamiques
-
-    include "YOMCST.h"
 
     DO k = 1, klev
@@ -1394 +1393 @@
     ! ========================================================
     USE dimphy
-    USE lmdz_YOETHF
+    USE lmdz_yoethf
     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
+    USE lmdz_yomcst
 
     IMPLICIT NONE
@@ -1424 +1424 @@
     INTEGER k, i
     REAL zx_qs, rh, tnew, d_rh, rhnew
-
-    ! Declaration des constantes et des fonctions thermodynamiques
-
-    include "YOMCST.h"
 
     print *, 'dtime, tau ', dtime, tau
@@ -1545 +1541 @@
           &, dth_mod_cas, hth_mod_cas, vth_mod_cas, mxcalc)
 
+    USE lmdz_yomcst
+
     IMPLICIT NONE
 
-    include "YOMCST.h"
     include "dimensions.h"