Changeset 3846

Timestamp:

Apr 1, 2019 1:55:30 PM (5 years ago)

Author:

suehring

Message:

Check for proper setting of dt_radiation

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! Code review.
+! Implement check for dt_radiation (must be > 0)
 ! 
 ! Former revisions:
@@ -1792 +1792 @@
        ENDDO
        svfnorm_report_num = svfnorm_report_num - 1
-
-
+!
+!--    Check for dt_radiation
+       IF ( dt_radiation <= 0.0 )  THEN
+          message_string = 'dt_radiation must be > 0.0'  
+          CALL message( 'check_parameters', 'PA0591', 1, 2, 0, 6, 0 ) 
+       ENDIF
  
     END SUBROUTINE radiation_check_parameters