Changeset 4875 for palm/trunk

Timestamp:

Feb 17, 2021 11:56:22 AM (4 years ago)

Author:

scharf

Message:

bugfix for interpolating external radiation

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! bugfix for interpolating external radiation on first timestep
+!
+! 4874 2021-02-15 17:21:20Z raasch
 ! bugfix for writing restart radiation arrays with MPI-IO
 !
@@ -3456 +3459 @@
 ! Description:
 ! ------------
-!> A simple clear sky radiation model
+!> Use external radiative forcing (short- and longwave downwelling radiation) from a driver
 !--------------------------------------------------------------------------------------------------!
  SUBROUTINE radiation_external
@@ -3494 +3497 @@
 
        fac_dt = ( time_since_reference_point - time_rad_f%var1d(tm) + dt_3d ) /                    &
-                ( time_rad_f%var1d(t)  - time_rad_f%var1d(tm) )
+                MAX( TINY( 1._wp ), ( time_rad_f%var1d(t)  - time_rad_f%var1d(tm) ) )
        fac_dt = MIN( 1.0_wp, fac_dt )
     ENDIF