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

Added agent ID output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.