Changeset 4307 for palm/trunk/SOURCE/netcdf_interface_mod.f90
- Timestamp:
- Nov 26, 2019 2:12:36 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_interface_mod.f90
r4227 r4307 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Adjusted output of multi-agent system for biometeorology 28 ! 29 ! 4227 2019-09-10 18:04:34Z gronemeier 27 30 ! Replace function date_time_string by call to get_date_time 28 31 ! … … 139 142 (/ 'ag_id ', 'ag_x ', 'ag_y ', & 140 143 'ag_wind ', 'ag_temp ', 'ag_group ', & 141 ' PM10 ', 'PM25 ', 'ag_iPT', &142 ' ag_uv', 'not_used ', 'not_used ', &144 'ag_iPT ', 'ag_PM10 ', 'ag_PM25 ', & 145 'not_used ', 'not_used ', 'not_used ', & 143 146 'not_used ' /) 144 147 … … 146 149 (/ 'dim_less ', 'meters ', 'meters ', & 147 150 'm/s ', 'K ', 'dim_less ', & 148 ' tbd', 'tbd ', 'tbd ', &151 'C ', 'tbd ', 'tbd ', & 149 152 'tbd ', 'not_used ', 'not_used ', & 150 153 'not_used ' /) … … 2355 2358 ! 2356 2359 !-- Define vars for biometeorology 2357 CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum, & 2358 id_dim_time_agt /), agt_var_names(9), & 2359 nc_precision(8), id_var_agt(9), & 2360 TRIM( agt_var_units(9) ), & 2361 TRIM( agt_var_names(9) ), 339, 340, 341 ) 2362 2360 IF ( biometeorology ) THEN 2361 CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum, & 2362 id_dim_time_agt /), agt_var_names(7), & 2363 nc_precision(8), id_var_agt(7), & 2364 TRIM( agt_var_units(7) ), & 2365 TRIM( agt_var_names(7) ), 339, 340, 341 ) 2366 ENDIF 2363 2367 ! 2364 2368 !-- Leave netCDF define mode
Note: See TracChangeset
for help on using the changeset viewer.