- Timestamp:
- Jul 7, 2017, 10:38:35 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/surf_land_orchidee_noz0h_mod.F90
r2925 r2934 46 46 evap, fluxsens, fluxlat, & 47 47 tsol_rad, tsurf_new, alb1_new, alb2_new, & 48 emis_new, z0_new, z0h_new, qsurf) 48 emis_new, z0_new, z0h_new, qsurf, & 49 veget, lai, height) 49 50 50 51 USE mod_surf_para … … 111 112 ! 112 113 INCLUDE "YOMCST.h" 113 114 INCLUDE "dimpft.h" 114 115 ! 115 116 ! Parametres d'entree … … 141 142 REAL, DIMENSION(klon), INTENT(OUT) :: alb1_new, alb2_new 142 143 REAL, DIMENSION(klon), INTENT(OUT) :: emis_new, z0_new, z0h_new 144 REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: veget ! dummy variables 145 REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: lai ! dummy variables 146 REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: height! dummy variables 143 147 144 148 ! Local … … 213 217 214 218 IF (check) WRITE(lunout,*)'Entree ', modname 219 220 IF (ifl_pbltree == 1) THEN 221 abort_message='Pb de coherence: cette interface vers ORCHIDEE ne peut pas etre utilise avec ifl_pbltree' 222 CALL abort_physic(modname,abort_message,1) 223 END IF 215 224 216 225 ! Initialisation
Note: See TracChangeset
for help on using the changeset viewer.