- Timestamp:
- Oct 25, 2024, 3:41:23 PM (9 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90
r4894 r5274 56 56 USE time_phylmdz_mod, ONLY: itau_phy 57 57 #endif 58 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 59 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 60 , R_ecc, R_peri, R_incl & 61 , RA, RG, R1SA & 62 , RSIGMA & 63 , R, RMD, RMV, RD, RV, RCPD & 64 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 65 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 66 , RCW, RCS & 67 , RLVTT, RLSTT, RLMLT, RTT, RATM & 68 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 69 , RALPD, RBETD, RGAMD 58 70 ! 59 71 ! 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 … … 233 244 IF ( .NOT. ALLOCATED(albedo_keep)) THEN 234 245 !ym ALLOCATE(albedo_keep(klon)) 235 !ym bizarre que non allou éen knon precedement246 !ym bizarre que non allou� en knon precedement 236 247 ALLOCATE(albedo_keep(knon)) 237 248 ALLOCATE(zlev(knon))
Note: See TracChangeset
for help on using the changeset viewer.