Changeset 5274 for LMDZ6/trunk/libf/phylmd/time_phylmdz_mod.f90

Timestamp:

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

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

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

LMDZ6/trunk/libf/phylmd/time_phylmdz_mod.f90

@@ -38 +38 @@
   USE ioipsl_getin_p_mod, ONLY : getin_p
   USE phys_cal_mod, ONLY: phys_cal_init
-  IMPLICIT NONE
-  INCLUDE 'YOMCST.h'
-    INTEGER, INTENT(IN) :: annee_ref_  
-    INTEGER, INTENT(IN) :: day_ref_    
-    INTEGER, INTENT(IN) :: day_ini_    
-    REAL,    INTENT(IN) :: start_time_ 
-    INTEGER, INTENT(IN) :: ndays_      
-    REAL,    INTENT(IN) :: pdtphys_    
-    
+  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
+
+    INTEGER, INTENT(IN) :: annee_ref_
+    INTEGER, INTENT(IN) :: day_ref_
+    INTEGER, INTENT(IN) :: day_ini_
+    REAL,    INTENT(IN) :: start_time_
+    INTEGER, INTENT(IN) :: ndays_
+    REAL,    INTENT(IN) :: pdtphys_
+
     annee_ref    = annee_ref_
     day_ref      = day_ref_
@@ -53 +65 @@
     ndays        = ndays_
     pdtphys      = pdtphys_
-    
+
     ! Initialize module variable not inherited from dynamics
     day_step_phy = NINT(rday/pdtphys)
     day_end  = day_ini + ndays
-  
+
     raz_date = 0
     CALL getin_p('raz_date', raz_date)
 
     current_time=0.
-    
+
     CALL phys_cal_init(annee_ref,day_ref)
-    
+
   END SUBROUTINE init_time
 
@@ -72 +84 @@
     itau_phy=itau_phy_
     IF (raz_date==1) itau_phy=0
-    
+
     itaufin_phy=itau_phy+NINT(ndays/pdtphys)
-    
+
   END SUBROUTINE init_iteration
 
@@ -82 +94 @@
   USE phys_cal_mod, ONLY: phys_cal_update
   USE print_control_mod, ONLY: lunout
+  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
-  INCLUDE 'YOMCST.h'
+
   REAL,INTENT(IN) :: pdtphys_
   REAL            :: julian_date