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

Timestamp:

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

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmd/orbite.f90 (modified) (9 diffs)

LMDZ6/trunk/libf/phylmd/orbite.f90

@@ -4 +4 @@
 ! ======================================================================
 SUBROUTINE orbite(xjour, longi, dist)
-  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) (adapte du GCM du LMD) date: 19930818
@@ -18 +30 @@
   REAL xjour, longi, dist
   ! ======================================================================
-  include "YOMCST.h"
+
 
   ! -- Variables dynamiques locales
@@ -48 +60 @@
 SUBROUTINE angle(longi, lati, frac, muzero)
   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
@@ -65 +89 @@
   REAL longi
   REAL lati(klon), frac(klon), muzero(klon)
-  include "YOMCST.h"
+
   REAL lat, omega, lon_sun, lat_sun
   REAL pi_local, incl
@@ -104 +128 @@
 SUBROUTINE zenang(longi, gmtime, pdtrad1, pdtrad2, lat, long, pmu0, frac)
   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 : O. Boucher (LMD/CNRS)
@@ -114 +150 @@
   ! fournit des moyennes de pmu0 et non des valeurs
   ! instantanees, du coup frac prend toutes les valeurs
-  ! entre 0 et 1. La routine integre entre gmtime+pdtrad1 et 
+  ! entre 0 et 1. La routine integre entre gmtime+pdtrad1 et
   ! gmtime+pdtrad2 avec pdtrad1 et pdtrad2 exprimes en secondes.
   ! Date   : premiere version le 13 decembre 1994
@@ -131 +167 @@
   ! frac-----OUTPUT: ensoleillement moyen entre gmtime+pdtrad1 et gmtime+pdtrad2
   ! ================================================================
-  include "YOMCST.h"
+
   ! ================================================================
   REAL, INTENT (IN) :: longi, gmtime, pdtrad1, pdtrad2
@@ -236 +272 @@
 SUBROUTINE zenith(longi, gmtime, lat, long, pmu0, fract)
   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/ENS)
@@ -253 +301 @@
 
   ! ====================================================================
-  include "YOMCST.h"
+
   ! ====================================================================
   REAL longi, gmtime