Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (21 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90
r4143 r5274 63 63 USE isotopes_verif_mod 64 64 #endif 65 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 66 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 67 , R_ecc, R_peri, R_incl & 68 , RA, RG, R1SA & 69 , RSIGMA & 70 , R, RMD, RMV, RD, RV, RCPD & 71 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 72 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 73 , RCW, RCS & 74 , RLVTT, RLSTT, RLMLT, RTT, RATM & 75 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 76 , RALPD, RBETD, RGAMD 65 77 66 78 ! This routine calculates recursivly the coefficients C and D … … 127 139 ! Include 128 140 !**************************************************************************************** 129 INCLUDE "YOMCST.h" 130 INCLUDE "compbl.h" 141 INCLUDE "compbl.h" 131 142 132 143 #ifdef ISO … … 423 434 ! where X is H or Q, and k the vertical level k=1,klev 424 435 ! 425 INCLUDE "YOMCST.h" 436 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 437 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 438 , R_ecc, R_peri, R_incl & 439 , RA, RG, R1SA & 440 , RSIGMA & 441 , R, RMD, RMV, RD, RV, RCPD & 442 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 443 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 444 , RCW, RCS & 445 , RLVTT, RLSTT, RLMLT, RTT, RATM & 446 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 447 , RALPD, RBETD, RGAMD 426 448 ! Input arguments 427 449 !**************************************************************************************** … … 505 527 USE isotopes_verif_mod 506 528 #endif 529 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 530 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 531 , R_ecc, R_peri, R_incl & 532 , RA, RG, R1SA & 533 , RSIGMA & 534 , R, RMD, RMV, RD, RV, RCPD & 535 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 536 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 537 , RCW, RCS & 538 , RLVTT, RLSTT, RLMLT, RTT, RATM & 539 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 540 , RALPD, RBETD, RGAMD 507 541 ! 508 542 ! This routine calculates the flux and tendency of the specific humidity q and … … 557 591 ! Include 558 592 !**************************************************************************************** 559 INCLUDE "YOMCST.h" 560 INCLUDE "compbl.h" 593 INCLUDE "compbl.h" 561 594 562 595 !****************************************************************************************
Note: See TracChangeset
for help on using the changeset viewer.