Changeset 3424

Timestamp:

Oct 25, 2018 7:29:10 AM (6 years ago)

Author:

gronemeier

Message:

bugfix: add rad_lw_in, rad_lw_out, rad_sw_out to radiation_check_data_output

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! bugfix: add rad_lw_in, rad_lw_out, rad_sw_out to radiation_check_data_output
+! 
+! 3378 2018-10-19 12:34:59Z kanani
 ! merge from radiation branch (r3362) into trunk
 ! (moh.hefny):
@@ -1234 +1237 @@
        SELECT CASE ( TRIM( var ) )
 
-          CASE ( 'rad_lw_cs_hr', 'rad_lw_hr', 'rad_sw_cs_hr', 'rad_sw_hr', 'rad_sw_in' )
+          CASE ( 'rad_lw_cs_hr', 'rad_lw_hr', 'rad_lw_in', 'rad_lw_out', &
+                 'rad_sw_cs_hr', 'rad_sw_hr', 'rad_sw_in', 'rad_sw_out'  )
              IF (  .NOT.  radiation  .OR.  radiation_scheme /= 'rrtmg' )  THEN
                 message_string = '"output of "' // TRIM( var ) // '" requi' // &