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

    r19 r20  
    44! Actual revisions:
    55! -----------------
     6! Bugfix: ddzw dimensioned 1:nzt"+1"
    67! Calculation extended for gridpoint nzt
    78!
     
    5152       INTEGER ::  i, j, k
    5253       REAL            ::  dpt_dz, l_stable, phi_m
    53        REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt), &
     54       REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt+1), &
    5455                           l_grid(1:nzt), zu(0:nzt+1)
    5556       REAL, DIMENSION(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) :: diss, tend
     
    166167       INTEGER         ::  i, j, k
    167168       REAL            ::  dpt_dz, l_stable, phi_m
    168        REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt), &
     169       REAL            ::  ddzu(1:nzt+1), dd2zu(1:nzt), ddzw(1:nzt+1), &
    169170                           l_grid(1:nzt), zu(0:nzt+1)
    170171       REAL, DIMENSION(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ::  diss, tend
Note: See TracChangeset for help on using the changeset viewer.