Changeset 3165 for palm


Ignore:
Timestamp:
Jul 24, 2018 1:12:42 PM (6 years ago)
Author:
sward
Message:

Added agent ID output

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/multi_agent_system_mod.f90

    r3160 r3165  
    2525! -----------------
    2626! $Id$
     27! Added agent ID output
     28!
     29! 3160 2018-07-20 11:52:56Z sward
    2730! Changed C_SIZEOF to STORAGE_SIZE
    2831!
     
    12061209          agents=>out_agents
    12071210
    1208 
    12091211#if defined( __netcdf )
    12101212
     
    12471249                                  count = (/ out_noa /) )
    12481250          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
    12491257
    12501258!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(6), agents%pm10,      &
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r3159 r3165  
    2525! -----------------
    2626! $Id$
     27! Added agent ID output
     28!
     29! 3159 2018-07-20 11:20:01Z sward
    2730! Added multi agent system
    2831!
     
    287290    CHARACTER (LEN=16), DIMENSION(13) ::  agt_var_names =                      &
    288291          (/ 'ag_x            ', 'ag_y            ', 'ag_wind         ',       &
    289              'ag_temp         ', 'ag_group        ', 'PM10            ',       &
    290              'PM25            ', '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        ',       &
    292295             'not_used        ' /)
    293296
    294297    CHARACTER (LEN=16), DIMENSION(13) ::  agt_var_units = &
    295298          (/ 'meters          ', 'meters          ', 'm/s             ',       &
    296              'K               ', 'dim_less        ', 'tbd             ',       &
     299             'K               ', 'dim_less        ', 'dim_less        ',       &
    297300             'tbd             ', 'tbd             ', 'tbd             ',       &
    298              'not_used        ', 'not_used        ', 'not_used        ',       &
     301             'tbd             ', 'not_used        ', 'not_used        ',       &
    299302             'not_used        ' /)
    300303
     
    19861989!
    19871990!--       Define the variables
    1988           DO  i = 1, 5
     1991          DO  i = 1, 6
    19891992             CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum,             &
    19901993                                     id_dim_time_agt /), agt_var_names(i),     &
Note: See TracChangeset for help on using the changeset viewer.