Ignore:
Timestamp:
Mar 9, 2007 12:05:41 PM (15 years ago)
Author:
raasch
Message:

preliminary update of further changes, advec_particles is not running!

File:
1 edited

Legend:

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

    r56 r57  
    44! Actual revisions:
    55! -----------------
    6 ! Wall functions now include diabatic conditions, call of routine wall_fluxes
     6! Wall functions now include diabatic conditions, call of routine wall_fluxes,
     7! z0 removed from argument list
    78!
    89! Former revisions:
     
    5051! Call for all grid points
    5152!------------------------------------------------------------------------------!
    52     SUBROUTINE diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, v, w, z0 )
     53    SUBROUTINE diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, v, w )
    5354
    5455       USE control_parameters
     
    6162       REAL    ::  kmym_x, kmym_y, kmyp_x, kmyp_y, kmzm, kmzp
    6263       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_y(nys-1:nyn+1)
    63        REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
    6464       REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
    6565       REAL, DIMENSION(:,:),   POINTER ::  usws
     
    207207!------------------------------------------------------------------------------!
    208208    SUBROUTINE diffusion_u_ij( i, j, ddzu, ddzw, km, km_damp_y, tend, u, usws, &
    209                                v, w, z0 )
     209                               v, w )
    210210
    211211       USE control_parameters
     
    218218       REAL    ::  kmym_x, kmym_y, kmyp_x, kmyp_y, kmzm, kmzp
    219219       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_y(nys-1:nyn+1)
    220        REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
    221220       REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
    222221       REAL, DIMENSION(nzb:nzt+1)      ::  usvs
Note: See TracChangeset for help on using the changeset viewer.