Changeset 3884 for trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

Timestamp:

Aug 11, 2025, 3:55:40 PM (6 days ago)

Author:

ikovalenko

Message:

 

File:

• trunk/LMDZ.VENUS/libf/phyvenus/clmain.F (modified) (11 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

@@ -41 +41 @@
       use soil_mod, only: nsoilmx
       use clesphys_mod
+      use YOMCST_mod
       
 #ifdef CPP_XIOS      
@@ -148 +149 @@
       real y_cd_m(klon),y_cd_h(klon)
 c
-      include "YOMCST.h"
+c      include "YOMCST.h"
       REAL u1lay(klon), v1lay(klon)
       REAL delp(klon,klev)
@@ -486 +487 @@
       use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
       use cpdet_phy_mod, only: t2tpot,tpot2t,cpdet
+      use YOMCST_mod
 
       IMPLICIT none
@@ -492 +494 @@
 c Objet: diffusion verticale de "h"
 c======================================================================
-      include "YOMCST.h"
+c      include "YOMCST.h"
       include "iniprint.h"
 
@@ -802 +804 @@
 
       use dimphy, only: klon, klev
+      use YOMCST_mod
+
       IMPLICIT none
 c======================================================================
@@ -824 +828 @@
 c flux_v---output-R- (diagnostic) flux du vent: (kg m/s)/(m**2 s)
 c======================================================================
-      include "iniprint.h"
+c      include "iniprint.h"
 
 c Parametres d'entree
@@ -839 +843 @@
       REAL, INTENT(OUT) :: flux_v(klon, klev)
 c======================================================================
-      include "YOMCST.h"
+c     include "YOMCST.h"
 c======================================================================
 c Parametres locaux
@@ -940 +944 @@
       use xios_output_mod, only: send_xios_field
 #endif
-
+      use YOMCST_mod
       IMPLICIT none
 c======================================================================
@@ -960 +964 @@
 c pcfh-----output-R- coefficients a calculer (chaleur et humidite)
 c======================================================================
-      include "YOMCST.h"
+c      include "YOMCST.h"
       include "iniprint.h"
       include "compbl.h"
@@ -1268 +1272 @@
       use mod_grid_phy_lmdz, only: nbp_lev
       use cpdet_phy_mod, only: cpdet
+      use YOMCST_mod
       IMPLICIT none
 c======================================================================
@@ -1283 +1288 @@
 c pcfh-----output-R- coefficients a calculer (chaleur et humidite)
 c======================================================================
-      include "YOMCST.h"
+c      include "YOMCST.h"
       include "iniprint.h"
 c