Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (21 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90
r5273 r5274 47 47 USE dimsoil_mod_h, ONLY: nsoilmx 48 48 49 IMPLICIT NONE 50 51 include "YOMCST.h" 49 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 50 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 51 , R_ecc, R_peri, R_incl & 52 , RA, RG, R1SA & 53 , RSIGMA & 54 , R, RMD, RMV, RD, RV, RCPD & 55 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 56 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 57 , RCW, RCS & 58 , RLVTT, RLSTT, RLMLT, RTT, RATM & 59 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 60 , RALPD, RBETD, RGAMD 61 IMPLICIT NONE 62 63 52 64 include "clesphys.h" 53 65 … … 417 429 ! ==================================================================== 418 430 SUBROUTINE zenang_an(cycle_diurne, gmtime, rlat, rlon, rmu0, fract) 431 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 432 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 433 , R_ecc, R_peri, R_incl & 434 , RA, RG, R1SA & 435 , RSIGMA & 436 , R, RMD, RMV, RD, RV, RCPD & 437 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 438 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 439 , RCW, RCS & 440 , RLVTT, RLSTT, RLMLT, RTT, RATM & 441 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 442 , RALPD, RBETD, RGAMD 419 443 USE dimphy 420 444 IMPLICIT NONE … … 450 474 ! frac-----OUTPUT: ensoleillement moyen entre gmtime et gmtime+pdtrad 451 475 ! ================================================================ 452 include "YOMCST.h"453 476 ! ================================================================ 454 477 LOGICAL cycle_diurne
Note: See TracChangeset
for help on using the changeset viewer.