Changeset 3046 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -2721 +2721 @@
        
        message_string = 'namelist radiation_par is deprecated and will be ' // &
-                     'removed in near future. Please &use namelist ' //        &
+                     'removed in near future. Please use namelist ' //         &
                      'radiation_parameters instead'
        CALL message( 'radiation_parin', 'PA0487', 0, 1, 0, 6, 0 )
@@ -2733 +2733 @@
           message_string = 'surface_reflections is allowed only when '      // &
                'radiation_interactions_on is set to TRUE'
-          CALL message( 'radiation_parin', 'PA0487',1, 2, 0, 6, 0 )
+          CALL message( 'radiation_parin', 'PA0293',1, 2, 0, 6, 0 )
        ENDIF
 
@@ -5599 +5599 @@
                   zns = pi / REAL(nzn, wp)
                CASE DEFAULT
-                  WRITE(message_string, *) 'ERROR: the surface type ',td , ' is not supported for calculating SVF'
+                  WRITE(message_string, *) 'ERROR: the surface type ', td,     &
+                                           ' is not supported for calculating',&
+                                           ' SVF'
                   CALL message( 'radiation_calc_svf', 'PA0488', 1, 2, 0, 6, 0 )
             END SELECT
@@ -6760 +6762 @@
 ! ------------
 !> Soubroutine reads svf and svfsurf data from saved file
+!> SVF means sky view factors and CSF means canopy sink factors
 !------------------------------------------------------------------------------!
     SUBROUTINE radiation_read_svf