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

Timestamp:

Mar 3, 2021 4:10:18 PM (4 years ago)

Author:

raasch

Message:

small re-formatting to follow the coding standard, typo in file appendix removed, more meaningful variable names assigned, redundant code removed

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! typo in file appendix removed
+!
+! 4875 2021-02-17 11:56:22Z scharf
 ! bugfix for interpolating external radiation on first timestep
 !
@@ -3125 +3128 @@
        IF ( .NOT. lw_exists )  THEN
           message_string = 'Input file RRTMG_LW for rrtmg model missing.& Please provide ' //      &
-                           TRIM( run_identifier ) // '_lsw file in the INPUT directory.'
+                           TRIM( run_identifier ) // '_rlw file in the INPUT directory.'
           CALL message( 'radiation_init', 'PA0583', 1, 2, 0, 6, 0 )
        ENDIF