Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/cv_driver.F90

Timestamp:

Oct 25, 2024, 3:41:23 PM (18 hours ago)

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmdiso/cv_driver.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/cv_driver.F90

@@ -1231 +1231 @@
   USE ioipsl_getin_p_mod, ONLY : getin_p
 
-  IMPLICIT NONE
+  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
+          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
+          , R_ecc, R_peri, R_incl                                      &
+          , RA, RG, R1SA                                         &
+          , RSIGMA                                                     &
+          , R, RMD, RMV, RD, RV, RCPD                    &
+          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
+          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
+          , RCW, RCS                                                 &
+          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
+          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
+          , RALPD, RBETD, RGAMD
+IMPLICIT NONE
 
   ! Argument : iflag_ice_thermo : ice thermodynamics is taken into account if
@@ -1245 +1257 @@
   !
 ! si icvflag_Tpa=0, alors la fraction de glace dans l'ascendance adiabatique est
-  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 
-  ! calculee en deux iterations, une en supposant qu'il n'y a pas de glace et l'autre 
+  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est
+  ! calculee en deux iterations, une en supposant qu'il n'y a pas de glace et l'autre
   ! en ajoutant la glace (ancien schema d'Arnaud Jam).
 ! si icvflag_Tpa=1, alors la fraction de glace dans l'ascendance adiabatique est
-  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 
+  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est
   ! calculee en une seule iteration.
 ! si icvflag_Tpa=2, alors la fraction de glace dans l'ascendance adiabatique est
-  ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est 
+  ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est
   ! calculee en une seule iteration.
-  icvflag_Tpa=0  
+  icvflag_Tpa=0
   call getin_p('icvflag_Tpa', icvflag_Tpa)
 
@@ -1262 +1274 @@
 ! ==================================================================
 SUBROUTINE cv_thermo(iflag_con)
+  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
+          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
+          , R_ecc, R_peri, R_incl                                      &
+          , RA, RG, R1SA                                         &
+          , RSIGMA                                                     &
+          , R, RMD, RMV, RD, RV, RCPD                    &
+          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
+          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
+          , RCW, RCS                                                 &
+          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
+          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
+          , RALPD, RBETD, RGAMD
   IMPLICIT NONE
 
@@ -1267 +1291 @@
   ! Set thermodynamical constants for convectL
   ! -------------------------------------------------------------
-
-  include "YOMCST.h"
   include "cvthermo.h"