Ignore:
Timestamp:
Feb 23, 2007 4:53:48 AM (15 years ago)
Author:
raasch
Message:

preliminary version of modified boundary conditions at top

File:
1 edited

Legend:

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

    r4 r19  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Setting of nzt_diff
    77!
    88! Former revisions:
     
    202202
    203203!
    204 !-- Define vertical gridpoint from which on the usual finite difference
     204!-- Define vertical gridpoint from (or to) which on the usual finite difference
    205205!-- form (which does not use surface fluxes) is applied
    206206    IF ( prandtl_layer  .OR.  use_surface_fluxes )  THEN
     
    208208    ELSE
    209209       nzb_diff = nzb + 1
     210    ENDIF
     211    IF ( use_top_fluxes )  THEN
     212       nzt_diff = nzt - 1
     213    ELSE
     214       nzt_diff = nzt
    210215    ENDIF
    211216
Note: See TracChangeset for help on using the changeset viewer.