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_v.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:
     
    4849! Call for all grid points
    4950!------------------------------------------------------------------------------!
    50     SUBROUTINE diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w, z0 )
     51    SUBROUTINE diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w )
    5152
    5253       USE control_parameters
     
    5960       REAL    ::  kmxm_x, kmxm_y, kmxp_x, kmxp_y, kmzm, kmzp
    6061       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+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 ::  vsws
     
    205205!------------------------------------------------------------------------------!
    206206    SUBROUTINE diffusion_v_ij( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v, &
    207                                vsws, w, z0 )
     207                               vsws, w )
    208208
    209209       USE control_parameters
     
    216216       REAL    ::  kmxm_x, kmxm_y, kmxp_x, kmxp_y, kmzm, kmzp
    217217       REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1), km_damp_x(nxl-1:nxr+1)
    218        REAL    ::  z0(nys-1:nyn+1,nxl-1:nxr+1)
    219218       REAL    ::  tend(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1)
    220219       REAL, DIMENSION(nzb:nzt+1)      ::  vsus
Note: See TracChangeset for help on using the changeset viewer.