Changeset 5285 for LMDZ6/trunk/libf/phylmd/ajsec.f90
- Timestamp:
- Oct 28, 2024, 2:33:29 PM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ajsec.f90
r5274 r5285 4 4 SUBROUTINE ajsec(paprs, pplay, t, q, limbas, d_t, d_q) 5 5 USE dimphy 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 6 USE yomcst_mod_h 18 7 IMPLICIT NONE 19 8 ! ====================================================================== … … 168 157 SUBROUTINE ajsec_convv2(paprs, pplay, t, q, d_t, d_q) 169 158 USE dimphy 170 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 171 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 172 , R_ecc, R_peri, R_incl & 173 , RA, RG, R1SA & 174 , RSIGMA & 175 , R, RMD, RMV, RD, RV, RCPD & 176 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 177 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 178 , RCW, RCS & 179 , RLVTT, RLSTT, RLMLT, RTT, RATM & 180 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 181 , RALPD, RBETD, RGAMD 159 USE yomcst_mod_h 182 160 IMPLICIT NONE 183 161 ! ====================================================================== … … 329 307 SUBROUTINE ajsec_old(paprs, pplay, t, d_t) 330 308 USE dimphy 331 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 332 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 333 , R_ecc, R_peri, R_incl & 334 , RA, RG, R1SA & 335 , RSIGMA & 336 , R, RMD, RMV, RD, RV, RCPD & 337 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 338 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 339 , RCW, RCS & 340 , RLVTT, RLSTT, RLMLT, RTT, RATM & 341 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 342 , RALPD, RBETD, RGAMD 309 USE yomcst_mod_h 343 310 IMPLICIT NONE 344 311 ! ======================================================================
Note: See TracChangeset
for help on using the changeset viewer.