Changeset 5274 for LMDZ6/trunk/libf/phylmd/stratocu_if.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (9 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/stratocu_if.f90
r5268 r5274 4 4 USE indice_sol_mod 5 5 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 18 IMPLICIT NONE 7 19 … … 27 39 REAL, DIMENSION(klon, 4), INTENT(IN) :: pctsrf 28 40 REAL, DIMENSION(klon, klev), INTENT(IN) :: t 29 41 30 42 REAL, DIMENSION(klon), INTENT(OUT) :: weak_inversion 31 43 ! … … 42 54 REAL dthmin(klon), zdthdp 43 55 44 INCLUDE "YOMCST.h" 56 45 57 46 58 !
Note: See TracChangeset
for help on using the changeset viewer.