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/check_parameters.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! added flag lsf_exception (inipar-Namelist parameter) to allow explicit
     25! enabling of large scale forcing together with buildings on flat terrain,
     26! introduced control parameter varnamelength for LEN of var.
    2327!
    2428! Former revisions:
     
    436440    USE transpose_indices
    437441    USE urban_surface_mod,                                                     &
    438         ONLY:  urban_surface, usm_check_data_output, usm_check_parameters
     442        ONLY:  usm_check_data_output, usm_check_parameters
    439443    USE wind_turbine_model_mod,                                                &
    440444        ONLY:  wtm_check_parameters, wind_turbine
     
    444448
    445449    CHARACTER (LEN=1)   ::  sq                       !<
    446     CHARACTER (LEN=15)  ::  var                      !<
     450    CHARACTER (LEN=varnamelength)  ::  var           !<
    447451    CHARACTER (LEN=7)   ::  unit                     !<
    448452    CHARACTER (LEN=8)   ::  date                     !<
     
    30693073!
    30703074!--          Block of urban surface model outputs
    3071              IF ( unit == 'illegal' .AND. urban_surface .AND. var(1:3) == 'us_' ) THEN
     3075             IF ( unit == 'illegal' .AND. urban_surface .AND. var(1:4) == 'usm_' ) THEN
    30723076                 CALL usm_check_data_output( var, unit )
    30733077             ENDIF
     
    37373741
    37383742    IF ( large_scale_forcing  .AND.  topography /= 'flat'                      &
    3739                               .AND.  .NOT.  urban_surface )  THEN
     3743                              .AND.  .NOT.  lsf_exception )  THEN
    37403744       message_string = 'The usage of large scale forcing from external &'//   &
    37413745                        'file LSF_DATA is not implemented for non-flat topography'
Note: See TracChangeset for help on using the changeset viewer.