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

Timestamp:

Nov 26, 2019 2:12:36 PM (5 years ago)

Author:

maronga

Message:

your commit message

File:

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

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Activated output of iPT
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -1190 +1193 @@
 
        USE control_parameters,                                                 &
-           ONLY:  agt_time_count, end_time, message_string,                    &
+           ONLY:  agt_time_count, biometeorology, end_time, message_string,    &
                   multi_agent_system_end, multi_agent_system_start
 
@@ -1402 +1405 @@
                                   count = (/ out_noa /) )
           CALL netcdf_handle_error( 'mas_data_output_agents', 7 )
-          CALL cpu_log( log_point_s(17), 'mas_data_output', 'stop' )
-
-
-!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(6), agents%pm10,      &
-!                                   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(7), agents%pm25,      &
+
+
+          IF ( biometeorology )  THEN
+             nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(7), agents%ipt,    &
+                                     start = (/ 1, agt_time_count /),          &
+                                     count = (/ out_noa /) )
+             CALL netcdf_handle_error( 'mas_data_output_agents', 8 )  
+          ENDIF
+          
+
+          
+!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(8), agents%pm10,      &
 !                                   start = (/ 1, agt_time_count /),             &
 !                                   count = (/ out_noa /) )
 !           CALL netcdf_handle_error( 'mas_data_output_agents', 9 )
 ! 
-!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(8), agents%therm_comf,&
+!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(9), agents%pm25,      &
 !                                   start = (/ 1, agt_time_count /),             &
 !                                   count = (/ out_noa /) )
+!           CALL netcdf_handle_error( 'mas_data_output_agents', 10 )
+! 
 ! 
 !           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(9), agents%uv,        &
@@ -1423 +1431 @@
 !                                   count = (/ out_noa /) )
 !           CALL netcdf_handle_error( 'mas_data_output_agents', 10 )
+
+          CALL cpu_log( log_point_s(17), 'mas_data_output', 'stop' )
+
 
 #endif