Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2323! Current revisions:
    2424! ------------------
    25 !
     25! Error messages revised
    2626!
    2727! Former revisions:
     
    27212721       
    27222722       message_string = 'namelist radiation_par is deprecated and will be ' // &
    2723                      'removed in near future. Please &use namelist ' //        &
     2723                     'removed in near future. Please use namelist ' //         &
    27242724                     'radiation_parameters instead'
    27252725       CALL message( 'radiation_parin', 'PA0487', 0, 1, 0, 6, 0 )
     
    27332733          message_string = 'surface_reflections is allowed only when '      // &
    27342734               'radiation_interactions_on is set to TRUE'
    2735           CALL message( 'radiation_parin', 'PA0487',1, 2, 0, 6, 0 )
     2735          CALL message( 'radiation_parin', 'PA0293',1, 2, 0, 6, 0 )
    27362736       ENDIF
    27372737
     
    55995599                  zns = pi / REAL(nzn, wp)
    56005600               CASE DEFAULT
    5601                   WRITE(message_string, *) 'ERROR: the surface type ',td , ' is not supported for calculating SVF'
     5601                  WRITE(message_string, *) 'ERROR: the surface type ', td,     &
     5602                                           ' is not supported for calculating',&
     5603                                           ' SVF'
    56025604                  CALL message( 'radiation_calc_svf', 'PA0488', 1, 2, 0, 6, 0 )
    56035605            END SELECT
     
    67606762! ------------
    67616763!> Soubroutine reads svf and svfsurf data from saved file
     6764!> SVF means sky view factors and CSF means canopy sink factors
    67626765!------------------------------------------------------------------------------!
    67636766    SUBROUTINE radiation_read_svf
Note: See TracChangeset for help on using the changeset viewer.