Changeset 5284 for LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.f90

Timestamp:

Oct 28, 2024, 2:12:55 PM (6 hours ago)

Author:

abarral

Message:

Turn alpale.h alpale.f90 YOETHF.h into modules

File:

• LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.f90

@@ -32 +32 @@
           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
           , RALPD, RBETD, RGAMD
+    USE yoethf_mod_h
 !
 ! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the
@@ -74 +75 @@
 !****************************************************************************************
     INCLUDE "compbl.h"
-    INCLUDE "YOETHF.h"
 
     ykmm = 0 !ym missing init
@@ -230 +230 @@
           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
           , RALPD, RBETD, RGAMD
-USE dimphy
+    USE dimphy
     USE indice_sol_mod
     USE print_control_mod, ONLY: prt_level, lunout
+    USE yoethf_mod_h
 
 !======================================================================
@@ -253 +254 @@
 ! pcfh-----output-R- coefficients a calculer (chaleur et humidite)
 !======================================================================
-    INCLUDE "YOETHF.h"
-
     INCLUDE "FCTTRE.h"
     INCLUDE "compbl.h"