Changeset 4179 for palm

Timestamp:

Aug 21, 2019 11:16:12 AM (5 years ago)

Author:

suehring

Message:

remove debug prints

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Remove debug prints
+! 
+! 4178 2019-08-21 11:13:06Z suehring
 ! External radiation forcing implemented.
 ! 
@@ -3409 +3412 @@
                 
                 surf%rad_lw_in  = emissivity_atm_clsky * sigma_sb * (pt1 * exner(k+1))**4
-                
-                print*, "clear sky", emissivity_atm_clsky * sigma_sb * (pt1 * exner(k+1))**4
 
                 surf%rad_lw_out = emissivity_urb * sigma_sb * (t_rad_urb)**4   &
@@ -6484 +6485 @@
         
         REAL(wp), PARAMETER  ::  lowest_solarUp = 0.1_wp  !< limit the sun elevation to protect stability of the calculation
-print*, "in diffusion_radiation"
 !  
 !--     Calculate current day and time based on the initial values and simulation time