Changeset 3677 for palm

Timestamp:

Jan 17, 2019 9:07:06 AM (6 years ago)

Author:

moh.hefny

Message:

update rad_lw_out according to radiation model used

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -2150 +2150 @@
 
        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)
+
+!
+! update the 3d field of rad_lw_out array to have consistent output
+       IF ( horizontal ) THEN
+          IF ( radiation_scheme == 'rrtmg' ) THEN
+             rad_lw_out(k+k_off,j+j_off,i+i_off) = surf%rad_lw_out(m)
+          ELSE
+             rad_lw_out(0,j+j_off,i+i_off) = surf%rad_lw_out(m)
+          ENDIF
+       ENDIF
 
        IF ( humidity )  THEN