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

your commit message

File:
1 edited

Legend:

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