- Timestamp:
- Jul 24, 2018 1:12:42 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/multi_agent_system_mod.f90
r3160 r3165 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added agent ID output 28 ! 29 ! 3160 2018-07-20 11:52:56Z sward 27 30 ! Changed C_SIZEOF to STORAGE_SIZE 28 31 ! … … 1206 1209 agents=>out_agents 1207 1210 1208 1209 1211 #if defined( __netcdf ) 1210 1212 … … 1247 1249 count = (/ out_noa /) ) 1248 1250 CALL netcdf_handle_error( 'mas_data_output_agents', 7 ) 1251 1252 nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(6), agents%id, & 1253 start = (/ 1, agt_time_count /), & 1254 count = (/ out_noa /) ) 1255 CALL netcdf_handle_error( 'mas_data_output_agents', 8 ) 1256 1249 1257 1250 1258 ! nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(6), agents%pm10, & -
palm/trunk/SOURCE/netcdf_interface_mod.f90
r3159 r3165 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added agent ID output 28 ! 29 ! 3159 2018-07-20 11:20:01Z sward 27 30 ! Added multi agent system 28 31 ! … … 287 290 CHARACTER (LEN=16), DIMENSION(13) :: agt_var_names = & 288 291 (/ 'ag_x ', 'ag_y ', 'ag_wind ', & 289 'ag_temp ', 'ag_group ', ' PM10', &290 'PM 25 ', 'ag_therm_comf ', 'ag_uv', &291 ' not_used', 'not_used ', 'not_used ', &292 'ag_temp ', 'ag_group ', 'ag_id ', & 293 'PM10 ', 'PM25 ', 'ag_therm_comf ', & 294 'ag_uv ', 'not_used ', 'not_used ', & 292 295 'not_used ' /) 293 296 294 297 CHARACTER (LEN=16), DIMENSION(13) :: agt_var_units = & 295 298 (/ 'meters ', 'meters ', 'm/s ', & 296 'K ', 'dim_less ', ' tbd', &299 'K ', 'dim_less ', 'dim_less ', & 297 300 'tbd ', 'tbd ', 'tbd ', & 298 ' not_used', 'not_used ', 'not_used ', &301 'tbd ', 'not_used ', 'not_used ', & 299 302 'not_used ' /) 300 303 … … 1986 1989 ! 1987 1990 !-- Define the variables 1988 DO i = 1, 51991 DO i = 1, 6 1989 1992 CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum, & 1990 1993 id_dim_time_agt /), agt_var_names(i), &
Note: See TracChangeset
for help on using the changeset viewer.