Ignore:
Timestamp:
Feb 26, 2007 12:12:32 AM (15 years ago)
Author:
raasch
Message:

new parameter use_top_fluxes, Bugfix: ddzw dimensioned 1:nzt+1

File:
1 edited

Legend:

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

    r4 r20  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: ddzw dimensioned 1:nzt"+1"
    77!
    88! Former revisions:
     
    5151       REAL    ::  kmxm_x, kmxm_z, kmxp_x, kmxp_z, kmym_y, kmym_z, kmyp_y, &
    5252                   kmyp_z, wsus, wsvs
    53        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt), km_damp_x(nxl-1:nxr+1), &
     53       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1), &
    5454                   km_damp_y(nys-1:nyn+1)
    5555       REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
     
    199199       REAL    ::  kmxm_x, kmxm_z, kmxp_x, kmxp_z, kmym_y, kmym_z, kmyp_y, &
    200200                   kmyp_z, wsus, wsvs
    201        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt), km_damp_x(nxl-1:nxr+1), &
     201       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1), &
    202202                   km_damp_y(nys-1:nyn+1)
    203203       REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
Note: See TracChangeset for help on using the changeset viewer.