Ignore:
Timestamp:
Nov 26, 2019 2:12:36 PM (5 years ago)
Author:
maronga
Message:

your commit message

File:
1 edited

Legend:

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

    r4182 r4307  
    2525! -----------------
    2626! $Id$
     27! Activated output of iPT
     28!
     29! 4182 2019-08-22 15:20:23Z scharf
    2730! Corrected "Former revisions" section
    2831!
     
    11901193
    11911194       USE control_parameters,                                                 &
    1192            ONLY:  agt_time_count, end_time, message_string,                    &
     1195           ONLY:  agt_time_count, biometeorology, end_time, message_string,    &
    11931196                  multi_agent_system_end, multi_agent_system_start
    11941197
     
    14021405                                  count = (/ out_noa /) )
    14031406          CALL netcdf_handle_error( 'mas_data_output_agents', 7 )
    1404           CALL cpu_log( log_point_s(17), 'mas_data_output', 'stop' )
    1405 
    1406 
    1407 !           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(6), agents%pm10,      &
    1408 !                                   start = (/ 1, agt_time_count /),             &
    1409 !                                   count = (/ out_noa /) )
    1410 !           CALL netcdf_handle_error( 'mas_data_output_agents', 8 )
    1411 !
    1412 !           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(7), agents%pm25,      &
     1407
     1408
     1409          IF ( biometeorology )  THEN
     1410             nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(7), agents%ipt,    &
     1411                                     start = (/ 1, agt_time_count /),          &
     1412                                     count = (/ out_noa /) )
     1413             CALL netcdf_handle_error( 'mas_data_output_agents', 8 ) 
     1414          ENDIF
     1415         
     1416
     1417         
     1418!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(8), agents%pm10,      &
    14131419!                                   start = (/ 1, agt_time_count /),             &
    14141420!                                   count = (/ out_noa /) )
    14151421!           CALL netcdf_handle_error( 'mas_data_output_agents', 9 )
    14161422!
    1417 !           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(8), agents%therm_comf,&
     1423!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(9), agents%pm25,      &
    14181424!                                   start = (/ 1, agt_time_count /),             &
    14191425!                                   count = (/ out_noa /) )
     1426!           CALL netcdf_handle_error( 'mas_data_output_agents', 10 )
     1427!
    14201428!
    14211429!           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_agt(9), agents%uv,        &
     
    14231431!                                   count = (/ out_noa /) )
    14241432!           CALL netcdf_handle_error( 'mas_data_output_agents', 10 )
     1433
     1434          CALL cpu_log( log_point_s(17), 'mas_data_output', 'stop' )
     1435
    14251436
    14261437#endif
Note: See TracChangeset for help on using the changeset viewer.