Changeset 5274 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (31 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90
r4894 r5274 57 57 USE time_phylmdz_mod, ONLY: itau_phy 58 58 #endif 59 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 60 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 61 , R_ecc, R_peri, R_incl & 62 , RA, RG, R1SA & 63 , RSIGMA & 64 , R, RMD, RMV, RD, RV, RCPD & 65 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 66 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 67 , RCW, RCS & 68 , RLVTT, RLSTT, RLMLT, RTT, RATM & 69 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 70 , RALPD, RBETD, RGAMD 59 71 ! 60 72 ! Cette routine sert d'interface entre le modele atmospherique et le … … 109 121 ! qsurf air moisture at surface 110 122 ! 111 INCLUDE "YOMCST.h"112 123 INCLUDE "dimpft.h" 113 124 ! … … 247 258 IF ( .NOT. ALLOCATED(albedo_keep)) THEN 248 259 !ym ALLOCATE(albedo_keep(klon)) 249 !ym bizarre que non allou éen knon precedement260 !ym bizarre que non allou� en knon precedement 250 261 ALLOCATE(albedo_keep(knon)) 251 262 ALLOCATE(zlev(knon))
Note: See TracChangeset
for help on using the changeset viewer.