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_u.f90

    r4 r20  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: ddzw dimensioned 1:nzt"+1"
    77!
    88! Former revisions:
     
    5252       INTEGER ::  i, j, k
    5353       REAL    ::  kmym_x, kmym_y, kmyp_x, kmyp_y, kmzm, kmzp, usvs
    54        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt), km_damp_y(nys-1:nyn+1)
     54       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_y(nys-1:nyn+1)
    5555       REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
    5656       REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
     
    201201       INTEGER ::  i, j, k
    202202       REAL    ::  kmym_x, kmym_y, kmyp_x, kmyp_y, kmzm, kmzp, usvs
    203        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt), km_damp_y(nys-1:nyn+1)
     203       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_y(nys-1:nyn+1)
    204204       REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
    205205       REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
Note: See TracChangeset for help on using the changeset viewer.