Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/coef_diff_turb_mod.F90

Timestamp:

Jul 29, 2024, 11:01:04 PM (3 months ago)

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/coef_diff_turb_mod.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/coef_diff_turb_mod.F90

@@ -20 +20 @@
     USE lmdz_clesphys
     USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
-    USE lmdz_YOETHF
+    USE lmdz_yoethf
+    USE lmdz_yomcst
 
     ! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the
@@ -59 +60 @@
     REAL, DIMENSION(klon, klev + 1) :: yzlev, q2diag, ykmm, ykmn, ykmq
     REAL, DIMENSION(klon) :: yustar
-
-    ! Include
-    !****************************************************************************************
-    INCLUDE "YOMCST.h"
 
     ykmm = 0 !ym missing init
@@ -210 +207 @@
     USE lmdz_print_control, ONLY: prt_level, lunout
     USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
-    USE lmdz_YOETHF
+    USE lmdz_yoethf
     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
+    USE lmdz_yomcst
 
     !======================================================================
@@ -232 +230 @@
     ! pcfh-----output-R- coefficients a calculer (chaleur et humidite)
     !======================================================================
-    INCLUDE "YOMCST.h"
 
     ! Arguments:
@@ -490 +487 @@
     USE dimphy
     USE indice_sol_mod
+    USE lmdz_yomcst
 
     !======================================================================
@@ -532 +530 @@
     REAL zl2(knon)
     REAL zdthmin(knon), zdthdp
-
-    INCLUDE "YOMCST.h"
 
     ! Initialiser les sorties