Changeset 7515 for branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/condveg.f90
- Timestamp:
- 2022-03-10T16:32:09+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/condveg.f90
r7266 r7515 1048 1048 !! 1. Open file and allocate memory 1049 1049 1050 IF (grid_type==unstructured) THEN 1051 CALL ipslerr_p(3,'condveg_soilalb','Reading of SOILALB_FILE must be implemented with XIOS to be used for unstructured grid.', & 1052 'Use option alb_bg_modis for unstructured grid for now.','') 1053 END IF 1054 1055 1050 1056 ! Open file with soil colours 1051 1057 … … 1184 1190 1185 1191 ! Write diagnostics 1186 CALL xios_orchidee_send_field(" asoilcol",asoilcol)1192 CALL xios_orchidee_send_field("interp_avail_asoilcol",asoilcol) 1187 1193 1188 1194 … … 1352 1358 CALL xios_orchidee_send_field("interp_diag_alb_vis",soilalb_bg(:,ivis)) 1353 1359 CALL xios_orchidee_send_field("interp_diag_alb_nir",soilalb_bg(:,inir)) 1354 CALL xios_orchidee_send_field(" aalb_bg",aalb_bg)1360 CALL xios_orchidee_send_field("interp_avail_aalb_bg",aalb_bg) 1355 1361 1356 1362 END SUBROUTINE condveg_background_soilalb
Note: See TracChangeset
for help on using the changeset viewer.