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

Timestamp:

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

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmdiso/ajsec.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmdiso/ajsec.F90

@@ -19 +19 @@
 #endif
 #endif
-  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
   ! ======================================================================
   ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
@@ -29 +41 @@
   ! d_t-----output-R-Incrementation de la temperature
   ! ======================================================================
-  include "YOMCST.h"
+
   REAL paprs(klon, klev+1), pplay(klon, klev)
   REAL t(klon, klev), q(klon, klev)
@@ -313 +325 @@
 #endif
 #endif
-  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
   ! ======================================================================
   ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
@@ -323 +347 @@
   ! d_t-----output-R-Incrementation de la temperature
   ! ======================================================================
-  include "YOMCST.h"
+
   REAL paprs(klon, klev+1), pplay(klon, klev)
   REAL t(klon, klev), q(klon, klev)
@@ -579 +603 @@
 SUBROUTINE ajsec_old(paprs, pplay, t, d_t)
   USE dimphy
-  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
   ! ======================================================================
   ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
@@ -589 +625 @@
   ! d_t-----output-R-Incrementation de la temperature
   ! ======================================================================
-  include "YOMCST.h"
+
   REAL paprs(klon, klev+1), pplay(klon, klev)
   REAL t(klon, klev)