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/sum_up_3d_data.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:
     
    136138
    137139    USE control_parameters,                                                    &
    138         ONLY:  average_count_3d, cloud_physics, doav, doav_n, rho_surface
     140        ONLY:  average_count_3d, cloud_physics, doav, doav_n, rho_surface,     &
     141               urban_surface, varnamelength
    139142
    140143    USE cpulog,                                                                &
     
    156159
    157160    USE urban_surface_mod,                                                     &
    158         ONLY:  urban_surface, usm_average_3d_data
     161        ONLY:  usm_average_3d_data
    159162
    160163
     
    171174    REAL(wp)     ::  s_r3   !<
    172175
    173     CHARACTER (LEN=20) ::  trimvar  !< TRIM of output-variable string
     176    CHARACTER (LEN=varnamelength) ::  trimvar  !< TRIM of output-variable string
    174177
    175178
     
    188191!--       surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar )
    189192          trimvar = TRIM( doav(ii) )
    190           IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
     193          IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
    191194             trimvar = 'usm_output'
    192195          ENDIF
     
    429432!--       surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar )
    430433          trimvar = TRIM( doav(ii) )
    431           IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
     434          IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
    432435             trimvar = 'usm_output'
    433436          ENDIF
Note: See TracChangeset for help on using the changeset viewer.