Changeset 2269 for palm/trunk/SOURCE/read_3d_binary.f90
- Timestamp:
- Jun 9, 2017 11:57:32 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_3d_binary.f90
r2233 r2269 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Enable restart runs for urban_surface_mod 28 ! 29 ! 2233 2017-05-30 18:08:54Z suehring 27 30 ! 28 31 ! 2232 2017-05-30 17:47:52Z suehring … … 132 135 USE control_parameters, & 133 136 ONLY: iran, land_surface, message_string, outflow_l, outflow_n, & 134 outflow_r, outflow_s 137 outflow_r, outflow_s, urban_surface 135 138 136 139 USE cpulog, & … … 165 168 USE surface_mod, & 166 169 ONLY : surface_read_restart_data 170 171 USE urban_surface_mod, & 172 ONLY: usm_read_restart_data 167 173 168 174 IMPLICIT NONE … … 1012 1018 nys_on_file, offset_xa, offset_ya, & 1013 1019 overlap_count(i), tmp_2d ) 1020 1021 ENDIF 1022 1023 ! 1024 !-- Read land surface restart data 1025 IF ( urban_surface ) THEN 1026 CALL usm_read_restart_data( i, nxlfa, nxl_on_file, nxrfa, & 1027 nxr_on_file, nynfa, nyn_on_file, nysfa, & 1028 nys_on_file, offset_xa, offset_ya, & 1029 overlap_count(i) ) 1014 1030 ENDIF 1015 1031
Note: See TracChangeset
for help on using the changeset viewer.