Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/ajsec.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (25 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/ajsec.F90
r4143 r5274 19 19 #endif 20 20 #endif 21 IMPLICIT NONE 21 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 22 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 23 , R_ecc, R_peri, R_incl & 24 , RA, RG, R1SA & 25 , RSIGMA & 26 , R, RMD, RMV, RD, RV, RCPD & 27 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 28 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 29 , RCW, RCS & 30 , RLVTT, RLSTT, RLMLT, RTT, RATM & 31 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 32 , RALPD, RBETD, RGAMD 33 IMPLICIT NONE 22 34 ! ====================================================================== 23 35 ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 … … 29 41 ! d_t-----output-R-Incrementation de la temperature 30 42 ! ====================================================================== 31 include "YOMCST.h" 43 32 44 REAL paprs(klon, klev+1), pplay(klon, klev) 33 45 REAL t(klon, klev), q(klon, klev) … … 313 325 #endif 314 326 #endif 315 IMPLICIT NONE 327 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 328 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 329 , R_ecc, R_peri, R_incl & 330 , RA, RG, R1SA & 331 , RSIGMA & 332 , R, RMD, RMV, RD, RV, RCPD & 333 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 334 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 335 , RCW, RCS & 336 , RLVTT, RLSTT, RLMLT, RTT, RATM & 337 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 338 , RALPD, RBETD, RGAMD 339 IMPLICIT NONE 316 340 ! ====================================================================== 317 341 ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 … … 323 347 ! d_t-----output-R-Incrementation de la temperature 324 348 ! ====================================================================== 325 include "YOMCST.h" 349 326 350 REAL paprs(klon, klev+1), pplay(klon, klev) 327 351 REAL t(klon, klev), q(klon, klev) … … 579 603 SUBROUTINE ajsec_old(paprs, pplay, t, d_t) 580 604 USE dimphy 581 IMPLICIT NONE 605 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 606 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 607 , R_ecc, R_peri, R_incl & 608 , RA, RG, R1SA & 609 , RSIGMA & 610 , R, RMD, RMV, RD, RV, RCPD & 611 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 612 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 613 , RCW, RCS & 614 , RLVTT, RLSTT, RLMLT, RTT, RATM & 615 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 616 , RALPD, RBETD, RGAMD 617 IMPLICIT NONE 582 618 ! ====================================================================== 583 619 ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818 … … 589 625 ! d_t-----output-R-Incrementation de la temperature 590 626 ! ====================================================================== 591 include "YOMCST.h" 627 592 628 REAL paprs(klon, klev+1), pplay(klon, klev) 593 629 REAL t(klon, klev)
Note: See TracChangeset
for help on using the changeset viewer.