Changeset 3186 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Jul 30, 2018 5:07:14 PM (6 years ago)

Author:

suehring

Message:

Mask topography while imposing inflow perturbations at the boundaries; do not impose perturbations at top boundary as well as ghost points; Remove print statement; Read zsoil dimension lenght only if soil variables are provided in dynamic driver

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Remove print statement
+! 
+! 3180 2018-07-27 11:00:56Z suehring
 ! Revise concept for calculation of effective radiative temperature and mapping
 ! of radiative heating
@@ -4984 +4987 @@
       t_rad_urb = ( (pemitlw - pabslw + emissivity_urb*pinlw) / &
            (emissivity_urb*sigma_sb * area_hor) )**0.25_wp
-write(9,*) t_rad_urb
-flush(9)
 !
 !--  It has been turned out that the effective radiative temperature is far