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_w.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:
     
    4647!------------------------------------------------------------------------------!
    4748    SUBROUTINE diffusion_w( ddzu, ddzw, km, km_damp_x, km_damp_y, tend, u, v, &
    48                             w, z0 )
     49                            w )
    4950
    5051       USE control_parameters
     
    5960       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1), &
    6061                   km_damp_y(nys-1:nyn+1)
    61        REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
    6262       REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
    6363       REAL, DIMENSION(:,:,:), POINTER ::  km, u, v, w
     
    194194!------------------------------------------------------------------------------!
    195195    SUBROUTINE diffusion_w_ij( i, j, ddzu, ddzw, km, km_damp_x, km_damp_y, &
    196                                tend, u, v, w, z0 )
     196                               tend, u, v, w )
    197197
    198198       USE control_parameters
     
    207207       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1), &
    208208                   km_damp_y(nys-1:nyn+1)
    209        REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
    210209       REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
    211210       REAL, DIMENSION(nzb:nzt+1)      ::  wsus, wsvs
Note: See TracChangeset for help on using the changeset viewer.