Changeset 4307 for palm


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

your commit message

Location:
palm/trunk/SOURCE
Files:
2 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
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r4227 r4307  
    2525! -----------------
    2626! $Id$
     27! Adjusted output of multi-agent system for biometeorology
     28!
     29! 4227 2019-09-10 18:04:34Z gronemeier
    2730! Replace function date_time_string by call to get_date_time
    2831!
     
    139142          (/ 'ag_id           ', 'ag_x            ', 'ag_y            ',       &
    140143             'ag_wind         ', 'ag_temp         ', 'ag_group        ',       &
    141              'PM10            ', 'PM25            ', 'ag_iPT          ',       &
    142              'ag_uv           ', 'not_used        ', 'not_used        ',       &
     144             'ag_iPT          ', 'ag_PM10         ', 'ag_PM25         ',       &
     145             'not_used        ', 'not_used        ', 'not_used        ',       &
    143146             'not_used        ' /)
    144147
     
    146149          (/ 'dim_less        ', 'meters          ', 'meters          ',       &
    147150             'm/s             ', 'K               ', 'dim_less        ',       &
    148              'tbd             ', 'tbd             ', 'tbd             ',       &
     151             '             ', 'tbd             ', 'tbd             ',       &
    149152             'tbd             ', 'not_used        ', 'not_used        ',       &
    150153             'not_used        ' /)
     
    23552358!
    23562359!--       Define vars for biometeorology
    2357           CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum,                &
    2358                                   id_dim_time_agt /), agt_var_names(9),        &
    2359                                   nc_precision(8), id_var_agt(9),              &
    2360                                   TRIM( agt_var_units(9) ),                    &
    2361                                   TRIM( agt_var_names(9) ), 339, 340, 341 )
    2362 
     2360          IF ( biometeorology )  THEN
     2361             CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum,             &
     2362                                     id_dim_time_agt /), agt_var_names(7),     &
     2363                                     nc_precision(8), id_var_agt(7),           &
     2364                                     TRIM( agt_var_units(7) ),                 &
     2365                                     TRIM( agt_var_names(7) ), 339, 340, 341 )                     
     2366          ENDIF
    23632367!
    23642368!--       Leave netCDF define mode
Note: See TracChangeset for help on using the changeset viewer.