Changeset 2163

Timestamp:

Mar 1, 2017 1:23:15 PM (8 years ago)

Author:

schwenkel

Message:

Bugfix in radiation_check_data_output

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in radiation_check_data_output
 ! 
 ! Former revisions:
@@ -555 +555 @@
                 CALL message( 'check_parameters', 'PA0406', 1, 2, 0, 6, 0 )
              ENDIF
-             unit = 'W/m2'     
+             unit = 'K/h'     
+
+         CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_sw_in', 'rad_sw_out' )
+             IF (  .NOT.  radiation  .OR.  radiation_scheme /= 'rrtmg' )  THEN
+                message_string = '"output of "' // TRIM( var ) // '" requi' // &
+                                 'res radiation = .TRUE. and ' //              &
+                                 'radiation_scheme = "rrtmg"'
+                CALL message( 'check_parameters', 'PA0406', 1, 2, 0, 6, 0 )
+             ENDIF
+             unit = 'W/m2'   
 
           CASE ( 'rad_net*', 'rrtm_aldif*', 'rrtm_aldir*', 'rrtm_asdif*',      &