Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r3029 r3045  
    2828! -----------------
    2929! $Id$
     30! Error message added
     31!
     32! 3029 2018-05-23 12:19:17Z raasch
    3033! bugfix: close unit 151 instead of 90
    3134!
     
    320323    USE radiation_model_mod,                                                   &
    321324        ONLY:  albedo_type, radiation_interaction, calc_zenith, zenith,        &
    322                rad_sw_in, rad_lw_in, rad_sw_out, rad_lw_out,                   &
     325               radiation, rad_sw_in, rad_lw_in, rad_sw_out, rad_lw_out,        &
    323326               sigma_sb, solar_constant, sun_direction, sun_dir_lat,           &
    324327               sun_dir_lon,                                                    &
     
    23032306                           'bc_pt_b = "dirichlet" and '//                      &
    23042307                           'bc_q_b  = "dirichlet"'
    2305           CALL message( 'check_parameters', 'PA0590', 1, 2, 0, 6, 0 )
     2308          CALL message( 'usm_check_parameters', 'PA0590', 1, 2, 0, 6, 0 )
    23062309       ENDIF
    23072310
     
    23092312          message_string = 'urban surface model requires '//                   &
    23102313                           'constant_flux_layer = .T.'
    2311           CALL message( 'check_parameters', 'PA0591', 1, 2, 0, 6, 0 )
     2314          CALL message( 'usm_check_parameters', 'PA0084', 1, 2, 0, 6, 0 )
     2315       ENDIF
     2316
     2317       IF (  .NOT.  radiation )  THEN
     2318          message_string = 'urban surface model requires '//                   &
     2319                           'the radiation model to be switched on'
     2320          CALL message( 'usm_check_parameters', 'PA0084', 1, 2, 0, 6, 0 )
    23122321       ENDIF
    23132322!       
Note: See TracChangeset for help on using the changeset viewer.