Changeset 4179 for palm


Ignore:
Timestamp:
Aug 21, 2019 11:16:12 AM (5 years ago)
Author:
suehring
Message:

remove debug prints

File:
1 edited

Legend:

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

    r4178 r4179  
    2828! -----------------
    2929! $Id$
     30! Remove debug prints
     31!
     32! 4178 2019-08-21 11:13:06Z suehring
    3033! External radiation forcing implemented.
    3134!
     
    34093412               
    34103413                surf%rad_lw_in  = emissivity_atm_clsky * sigma_sb * (pt1 * exner(k+1))**4
    3411                
    3412                 print*, "clear sky", emissivity_atm_clsky * sigma_sb * (pt1 * exner(k+1))**4
    34133414
    34143415                surf%rad_lw_out = emissivity_urb * sigma_sb * (t_rad_urb)**4   &
     
    64846485       
    64856486        REAL(wp), PARAMETER  ::  lowest_solarUp = 0.1_wp  !< limit the sun elevation to protect stability of the calculation
    6486 print*, "in diffusion_radiation"
    64876487
    64886488!--     Calculate current day and time based on the initial values and simulation time
Note: See TracChangeset for help on using the changeset viewer.