Changeset 3677


Ignore:
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:
1 edited

Legend:

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

    r3668 r3677  
    21502150
    21512151       surf%shf(m) = - f_shf * ( surf%pt1(m) - surf%pt_surface(m) ) / c_p
    2152        ! update the 3d field of rad_lw_ou array
    2153        IF ( horizontal ) rad_lw_out(k+k_off,j+j_off,i+i_off) = surf%rad_lw_out(m)
     2152
     2153!
     2154! update the 3d field of rad_lw_out array to have consistent output
     2155       IF ( horizontal ) THEN
     2156          IF ( radiation_scheme == 'rrtmg' ) THEN
     2157             rad_lw_out(k+k_off,j+j_off,i+i_off) = surf%rad_lw_out(m)
     2158          ELSE
     2159             rad_lw_out(0,j+j_off,i+i_off) = surf%rad_lw_out(m)
     2160          ENDIF
     2161       ENDIF
    21542162
    21552163       IF ( humidity )  THEN
Note: See TracChangeset for help on using the changeset viewer.