Changeset 5285 for LMDZ6/trunk/libf/phylmd/nuage.f90
- Timestamp:
- Oct 28, 2024, 2:33:29 PM (8 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/nuage.f90
r5284 r5285 5 5 temp_cltop, cldtaupi, re, fl) 6 6 USE clesphys_mod_h 7 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 8 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 9 , R_ecc, R_peri, R_incl & 10 , RA, RG, R1SA & 11 , RSIGMA & 12 , R, RMD, RMV, RD, RV, RCPD & 13 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 14 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 15 , RCW, RCS & 16 , RLVTT, RLSTT, RLMLT, RTT, RATM & 17 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18 , RALPD, RBETD, RGAMD 7 USE yomcst_mod_h 19 8 USE dimphy 20 9 USE lmdz_lscp_tools, only: icefrac_lscp … … 271 260 SUBROUTINE diagcld1(paprs, pplay, rain, snow, kbot, ktop, diafra, dialiq) 272 261 USE dimphy 273 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 274 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 275 , R_ecc, R_peri, R_incl & 276 , RA, RG, R1SA & 277 , RSIGMA & 278 , R, RMD, RMV, RD, RV, RCPD & 279 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 280 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 281 , RCW, RCS & 282 , RLVTT, RLSTT, RLMLT, RTT, RATM & 283 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 284 , RALPD, RBETD, RGAMD 262 USE yomcst_mod_h 285 263 IMPLICIT NONE 286 264 … … 365 343 SUBROUTINE diagcld2(paprs, pplay, t, q, diafra, dialiq) 366 344 USE dimphy 367 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 368 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 369 , R_ecc, R_peri, R_incl & 370 , RA, RG, R1SA & 371 , RSIGMA & 372 , R, RMD, RMV, RD, RV, RCPD & 373 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 374 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 375 , RCW, RCS & 376 , RLVTT, RLSTT, RLMLT, RTT, RATM & 377 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 378 , RALPD, RBETD, RGAMD 345 USE yomcst_mod_h 379 346 USE yoethf_mod_h 380 347 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.