Ignore:
Timestamp:
Oct 26, 2015 4:17:44 PM (8 years ago)
Author:
maronga
Message:

various bugfixes and modifications of the atmosphere-land-surface-radiation interaction. Completely re-written routine to calculate surface fluxes (surface_layer_fluxes.f90) that replaces prandtl_fluxes. Minor formatting corrections and renamings

File:
1 edited

Legend:

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

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Formatting corrections.
    2222!
    2323! Former revisions:
     
    144144!
    145145!--          Apply prescribed horizontal wall heatflux where necessary
    146              IF ( ( wall_w_x(j,i) .NE. 0.0_wp ) .OR. ( wall_w_y(j,i) .NE. 0.0_wp ) ) &
    147              THEN
     146             IF ( ( wall_w_x(j,i) /= 0.0_wp ) .OR. ( wall_w_y(j,i) /= 0.0_wp ) &
     147                )  THEN
    148148                DO  k = nzb_s_inner(j,i)+1, nzb_s_outer(j,i)
    149149
     
    400400!
    401401!--    Apply prescribed horizontal wall heatflux where necessary
    402        IF ( ( wall_w_x(j,i) .NE. 0.0_wp ) .OR. ( wall_w_y(j,i) .NE. 0.0_wp ) )       &
     402       IF ( ( wall_w_x(j,i) /= 0.0_wp ) .OR. ( wall_w_y(j,i) /= 0.0_wp ) )     &
    403403       THEN
    404404          DO  k = nzb_s_inner(j,i)+1, nzb_s_outer(j,i)
Note: See TracChangeset for help on using the changeset viewer.