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/radiation_model_mod.f90

    r2008 r2011  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Removed CALL of auxiliary SUBROUTINE get_usm_info,
     23! flag urban_surface is now defined in module control_parameters.
    2324!
    2425! Former revisions:
     
    768769
    769770       USE control_parameters,                                                 &
    770            ONLY: message_string, topography
     771           ONLY: message_string, topography, urban_surface
    771772                 
    772773   
    773774       IMPLICIT NONE
    774775       
    775        LOGICAL ::  urban_surface_af = .FALSE.  !< auxiliary flag used for parameter check
    776 
    777776
    778777       IF ( radiation_scheme /= 'constant'   .AND.                             &
     
    823822!--    flag, until a better solution comes up to omit this check in case of
    824823!--    urban surface model is used.
    825 !--    Routine get_usm_info provides the value for the urban_surface flag,
    826 !--    because the value cannot be retrieved via USE due to circular dependencies
    827 !--    between modules radiation_model_mod and urban_surface_mod.
    828        CALL get_usm_info( urban_surface_af )
    829        IF ( topography /= 'flat'  .AND.  .NOT.  urban_surface_af )  THEN
     824       IF ( topography /= 'flat'  .AND.  .NOT.  urban_surface )  THEN
    830825          message_string = 'radiation scheme cannot be used ' //               &
    831826                           'in combination with  topography /= "flat"'
Note: See TracChangeset for help on using the changeset viewer.