Changeset 3620 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Dec 11, 2018 12:29:43 PM (5 years ago)

Author:

moh.hefny

Message:

fix date and time and update 3d rad_lw_out

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! update the 3d rad_lw_out array
+!
+! 3597 2018-12-04 08:40:18Z maronga 
 ! Added pt_2m / theta_2m. Removed unncessary _eb strings.
 ! 
@@ -1755 +1758 @@
 
     USE pegrid
+    USE radiation_model_mod,  ONLY:  rad_lw_out
 
     IMPLICIT NONE
@@ -2191 +2195 @@
 
        surf%shf(m) = - f_shf * ( surf%pt1(m) - surf%pt_surface(m) ) / c_p
+       ! update the 3d field of rad_lw_ou array
+       IF ( horizontal ) rad_lw_out(k+k_off,j+j_off,i+i_off) = surf%rad_lw_out(m)
 
        IF ( humidity )  THEN