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

Timestamp:

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

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/conccm.F90 (modified) (4 diffs)

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

@@ -5 +5 @@
 
   USE dimphy
-  USE lmdz_YOETHF
+  USE lmdz_yoethf
+  USE lmdz_yomcst
 
   IMPLICIT NONE
@@ -13 +14 @@
   ! (schema standard du modele NCAR CCM2)
   ! ======================================================================
-  include "YOMCST.h"
 
   ! Entree:
@@ -137 +137 @@
 SUBROUTINE cmfmca(deltat, p, dp, gz, tb, shb, cmfprt, cmfprs, cnt, cnb)
   USE dimphy
-  USE lmdz_YOETHF
+  USE lmdz_yoethf
   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
+  USE lmdz_yomcst
 
   IMPLICIT NONE
@@ -292 +293 @@
 
   REAL qhalf, sh1, sh2, shbs1, shbs2
-  include "YOMCST.h"
   qhalf(sh1, sh2, shbs1, shbs2) = min(max(sh1, sh2), &
           (shbs2 * sh1 + shbs1 * sh2) / (shbs1 + shbs2))