Ignore:
Timestamp:
Sep 19, 2016 5:29:57 PM (5 years ago)
Author:
kanani
Message:

changes related to steering and formating of urban surface model

File:
1 edited

Legend:

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

    r2008 r2011  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Flag urban_surface is now defined in module control_parameters,
     23! changed prefix for urban surface model output to "usm_",
     24! introduced control parameter varnamelength for LEN of trimvar.
    2325!
    2426! Former revisions:
     
    174176 MODULE netcdf_interface
    175177
    176     USE control_parameters, ONLY: max_masks, fl_max, var_fl_max
     178    USE control_parameters, ONLY: max_masks, fl_max, var_fl_max, varnamelength
    177179    USE kinds
    178180#if defined( __netcdf )
     
    417419               simulated_time_at_begin, skip_time_data_output_av,              &
    418420               skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,        &
    419                skip_time_do3d, topography, num_leg, num_var_fl
     421               skip_time_do3d, topography, num_leg, num_var_fl,                &
     422               urban_surface
    420423
    421424    USE grid_variables,                                                        &
     
    448451
    449452    USE urban_surface_mod,                                                     &
    450         ONLY:  urban_surface, usm_define_netcdf_grid
     453        ONLY:  usm_define_netcdf_grid
    451454
    452455
     
    463466    CHARACTER (LEN=10)             ::  precision             !<
    464467    CHARACTER (LEN=10)             ::  var                   !<
    465     CHARACTER (LEN=20)             ::  trimvar               !< TRIM of output-variable string
     468    CHARACTER (LEN=varnamelength)  ::  trimvar               !< TRIM of output-variable string
    466469    CHARACTER (LEN=80)             ::  time_average_text     !<
    467470    CHARACTER (LEN=4000)           ::  char_cross_profiles   !<
     
    761764!--          surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar )
    762765             trimvar = TRIM( domask(mid,av,i) )
    763              IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
     766             IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
    764767                trimvar = 'usm_output'
    765768             ENDIF
     
    12831286!--          surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar )
    12841287             trimvar = TRIM( do3d(av,i) )
    1285              IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
     1288             IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
    12861289                trimvar = 'usm_output'
    12871290             ENDIF
Note: See TracChangeset for help on using the changeset viewer.