Changeset 3846 for palm/trunk/SOURCE


Ignore:
Timestamp:
Apr 1, 2019 1:55:30 PM (3 years ago)
Author:
suehring
Message:

Check for proper setting of dt_radiation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3843 r3846  
    2323! Current revisions:
    2424! ------------------
    25 ! Code review.
     25! Implement check for dt_radiation (must be > 0)
    2626!
    2727! Former revisions:
     
    17921792       ENDDO
    17931793       svfnorm_report_num = svfnorm_report_num - 1
    1794 
    1795 
     1794!
     1795!--    Check for dt_radiation
     1796       IF ( dt_radiation <= 0.0 )  THEN
     1797          message_string = 'dt_radiation must be > 0.0' 
     1798          CALL message( 'check_parameters', 'PA0591', 1, 2, 0, 6, 0 )
     1799       ENDIF
    17961800 
    17971801    END SUBROUTINE radiation_check_parameters
Note: See TracChangeset for help on using the changeset viewer.