Changeset 5274 for LMDZ6/trunk/libf/phylmd/orbite.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (3 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/orbite.f90
r5268 r5274 4 4 ! ====================================================================== 5 5 SUBROUTINE orbite(xjour, longi, dist) 6 IMPLICIT NONE 6 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 7 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 8 , R_ecc, R_peri, R_incl & 9 , RA, RG, R1SA & 10 , RSIGMA & 11 , R, RMD, RMV, RD, RV, RCPD & 12 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 13 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 14 , RCW, RCS & 15 , RLVTT, RLSTT, RLMLT, RTT, RATM & 16 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 17 , RALPD, RBETD, RGAMD 18 IMPLICIT NONE 7 19 ! ====================================================================== 8 20 ! Auteur(s): Z.X. Li (LMD/CNRS) (adapte du GCM du LMD) date: 19930818 … … 18 30 REAL xjour, longi, dist 19 31 ! ====================================================================== 20 include "YOMCST.h" 32 21 33 22 34 ! -- Variables dynamiques locales … … 48 60 SUBROUTINE angle(longi, lati, frac, muzero) 49 61 USE dimphy 50 IMPLICIT NONE 62 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 63 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 64 , R_ecc, R_peri, R_incl & 65 , RA, RG, R1SA & 66 , RSIGMA & 67 , R, RMD, RMV, RD, RV, RCPD & 68 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 69 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 70 , RCW, RCS & 71 , RLVTT, RLSTT, RLMLT, RTT, RATM & 72 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 73 , RALPD, RBETD, RGAMD 74 IMPLICIT NONE 51 75 ! ====================================================================== 52 76 ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 … … 65 89 REAL longi 66 90 REAL lati(klon), frac(klon), muzero(klon) 67 include "YOMCST.h" 91 68 92 REAL lat, omega, lon_sun, lat_sun 69 93 REAL pi_local, incl … … 104 128 SUBROUTINE zenang(longi, gmtime, pdtrad1, pdtrad2, lat, long, pmu0, frac) 105 129 USE dimphy 106 IMPLICIT NONE 130 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 131 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 132 , R_ecc, R_peri, R_incl & 133 , RA, RG, R1SA & 134 , RSIGMA & 135 , R, RMD, RMV, RD, RV, RCPD & 136 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 137 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 138 , RCW, RCS & 139 , RLVTT, RLSTT, RLMLT, RTT, RATM & 140 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 141 , RALPD, RBETD, RGAMD 142 IMPLICIT NONE 107 143 ! ============================================================= 108 144 ! Auteur : O. Boucher (LMD/CNRS) … … 114 150 ! fournit des moyennes de pmu0 et non des valeurs 115 151 ! instantanees, du coup frac prend toutes les valeurs 116 ! entre 0 et 1. La routine integre entre gmtime+pdtrad1 et 152 ! entre 0 et 1. La routine integre entre gmtime+pdtrad1 et 117 153 ! gmtime+pdtrad2 avec pdtrad1 et pdtrad2 exprimes en secondes. 118 154 ! Date : premiere version le 13 decembre 1994 … … 131 167 ! frac-----OUTPUT: ensoleillement moyen entre gmtime+pdtrad1 et gmtime+pdtrad2 132 168 ! ================================================================ 133 include "YOMCST.h" 169 134 170 ! ================================================================ 135 171 REAL, INTENT (IN) :: longi, gmtime, pdtrad1, pdtrad2 … … 236 272 SUBROUTINE zenith(longi, gmtime, lat, long, pmu0, fract) 237 273 USE dimphy 238 IMPLICIT NONE 274 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 275 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 276 , R_ecc, R_peri, R_incl & 277 , RA, RG, R1SA & 278 , RSIGMA & 279 , R, RMD, RMV, RD, RV, RCPD & 280 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 281 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 282 , RCW, RCS & 283 , RLVTT, RLSTT, RLMLT, RTT, RATM & 284 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 285 , RALPD, RBETD, RGAMD 286 IMPLICIT NONE 239 287 240 288 ! Auteur(s): Z.X. Li (LMD/ENS) … … 253 301 254 302 ! ==================================================================== 255 include "YOMCST.h" 303 256 304 ! ==================================================================== 257 305 REAL longi, gmtime
Note: See TracChangeset
for help on using the changeset viewer.