Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (6 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/land_surface_model_mod.f90

    r3026 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised and added
     28!
     29! 3026 2018-05-22 10:30:53Z schwenkel
    2730! Changed the name specific humidity to mixing ratio, since we are computing
    2831! mixing ratios.
     
    431434    USE radiation_model_mod,                                                   &
    432435        ONLY:  albedo, albedo_type, emissivity, force_radiation_call,          &
    433                radiation_scheme, unscheduled_radiation_calls
     436               radiation, radiation_scheme, unscheduled_radiation_calls
    434437       
    435438    USE statistics,                                                            &
     
    12741277         TRIM( surface_type ) /= 'water'       .AND.                           &
    12751278         TRIM( surface_type ) /= 'netcdf' )  THEN 
    1276        message_string = 'unknown surface type surface_type = "' //             &
     1279       message_string = 'unknown surface type: surface_type = "' //            &
    12771280                        TRIM( surface_type ) // '"'
    12781281       CALL message( 'lsm_check_parameters', 'PA0019', 1, 2, 0, 6, 0 )
     
    12951298       CALL message( 'lsm_check_parameters', 'PA0400', 1, 2, 0, 6, 0 )
    12961299    ENDIF
     1300   
     1301    IF (  .NOT.  radiation )  THEN
     1302       message_string = 'lsm requires '//                                      &
     1303                        'the radiation model to be switched on'
     1304       CALL message( 'lsm_check_parameters', 'PA0400', 1, 2, 0, 6, 0 )
     1305    ENDIF
    12971306
    12981307    IF ( TRIM( surface_type ) == 'vegetation' )  THEN
     
    13801389                                     ' is not allowed in combination with ',   &
    13811390                                     'most_method = ', most_method
    1382           CALL message( 'lsm_check_parameters', 'PA0417', 1, 2, 0, 6, 0 )
     1391          CALL message( 'lsm_check_parameters', 'PA0414', 1, 2, 0, 6, 0 )
    13831392       ENDIF
    13841393
     
    14261435             CALL message( 'lsm_check_parameters', 'PA0352', 1, 2, 0, 6, 0 )
    14271436          ENDIF
    1428 
     1437         
    14291438          IF ( z0h_pavement == 9999999.9_wp )  THEN
    14301439             message_string = 'pavement_type = 0 (user_defined)'//             &
     
    16301639    DO  k = nzb_soil, nzt_soil-1
    16311640       dz_soil_center(k) = zs(k+1) - zs(k)
    1632        IF ( dz_soil_center(k) == 0.0_wp )  THEN
     1641       IF ( dz_soil_center(k) <= 0.0_wp )  THEN
    16331642          message_string = 'invalid soil layer configuration found ' //        &
    1634                            '(dz_soil_center(k) = 0.0)'
     1643                           '(dz_soil_center(k) <= 0.0)'
    16351644          CALL message( 'lsm_rrd_local', 'PA0140', 1, 2, 0, 6, 0 )
    16361645       ENDIF 
Note: See TracChangeset for help on using the changeset viewer.