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/average_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:
     
    9698
    9799    USE control_parameters,                                                    &
    98         ONLY:  average_count_3d, doav, doav_n
     100        ONLY:  average_count_3d, doav, doav_n, urban_surface, varnamelength
    99101
    100102    USE cpulog,                                                                &
     
    113115
    114116    USE urban_surface_mod,                                                     &
    115         ONLY:  urban_surface, usm_average_3d_data
     117        ONLY:  usm_average_3d_data
    116118
    117119
     
    123125    INTEGER(iwp) ::  k  !< running index
    124126
    125     CHARACTER (LEN=20) ::  trimvar  !< TRIM of output-variable string
     127    CHARACTER (LEN=varnamelength) ::  trimvar  !< TRIM of output-variable string
    126128
    127129
     
    140142!--    surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar )
    141143       trimvar = TRIM( doav(ii) )
    142        IF ( urban_surface  .AND.  trimvar(1:3) == 'us_' )  THEN
     144       IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
    143145          trimvar = 'usm_output'
    144146       ENDIF
Note: See TracChangeset for help on using the changeset viewer.