Ignore:
Timestamp:
Oct 26, 2015 4:17:44 PM (6 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/init_grid.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! Renamed prandtl_layer to constant_flux_layer.
    2222!
    2323! Former revisions:
     
    144144               building_length_y, building_wall_left, building_wall_south,     &
    145145               canyon_height, canyon_wall_left, canyon_wall_south,             &
    146                canyon_width_x, canyon_width_y, coupling_char, dp_level_ind_b,  &
    147                dz, dz_max, dz_stretch_factor, dz_stretch_level,                &
    148                dz_stretch_level_index, ibc_uv_b, io_blocks, io_group,          &
    149                inflow_l, inflow_n, inflow_r, inflow_s, masking_method,         &
    150                maximum_grid_level, message_string, momentum_advec, ocean,      &
    151                outflow_l, outflow_n, outflow_r, outflow_s, prandtl_layer,      &
    152                psolver, scalar_advec, topography, topography_grid_convention,  &
    153                use_surface_fluxes, use_top_fluxes, wall_adjustment_factor
     146               canyon_width_x, canyon_width_y, constant_flux_layer,            &
     147               coupling_char, dp_level_ind_b, dz, dz_max, dz_stretch_factor,   &
     148               dz_stretch_level, dz_stretch_level_index, ibc_uv_b, io_blocks,  &
     149               io_group, inflow_l, inflow_n, inflow_r, inflow_s,               &
     150               masking_method, maximum_grid_level, message_string,             &
     151               momentum_advec, ocean, outflow_l, outflow_n, outflow_r,         &
     152               outflow_s, psolver, scalar_advec, topography,                   &
     153               topography_grid_convention, use_surface_fluxes, use_top_fluxes, &
     154               wall_adjustment_factor
    154155       
    155156    USE grid_variables,                                                        &
     
    477478!-- Define vertical gridpoint from (or to) which on the usual finite difference
    478479!-- form (which does not use surface fluxes) is applied
    479     IF ( prandtl_layer  .OR.  use_surface_fluxes )  THEN
     480    IF ( constant_flux_layer  .OR.  use_surface_fluxes )  THEN
    480481       nzb_diff = nzb + 2
    481482    ELSE
     
    955956!-- the usual finite difference form (which does not use surface fluxes) is
    956957!-- applied
    957     IF ( prandtl_layer  .OR.  use_surface_fluxes )  THEN
     958    IF ( constant_flux_layer  .OR.  use_surface_fluxes )  THEN
    958959       nzb_diff_u         = nzb_u_inner + 2
    959960       nzb_diff_v         = nzb_v_inner + 2
Note: See TracChangeset for help on using the changeset viewer.