Changeset 3165 for palm/trunk/SOURCE/multi_agent_system_mod.f90

Timestamp:

Jul 24, 2018 1:12:42 PM (6 years ago)

Author:

sward

Message:

Added agent ID output

File:

• palm/trunk/SOURCE/multi_agent_system_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added agent ID output
+! 
+! 3160 2018-07-20 11:52:56Z sward
 ! Changed C_SIZEOF to STORAGE_SIZE
 ! 
@@ -1206 +1209 @@
           agents=>out_agents
 
-
 #if defined( __netcdf )
 
@@ -1247 +1249 @@
                                   count = (/ out_noa /) )
           CALL netcdf_handle_error( 'mas_data_output_agents', 7 )
+
+          nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(6), agents%id,        &
+                                  start = (/ 1, agt_time_count /),             &
+                                  count = (/ out_noa /) )
+          CALL netcdf_handle_error( 'mas_data_output_agents', 8 )
+
 
 !           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(6), agents%pm10,      &