Ignore:
Timestamp:
Sep 13, 2012 2:08:46 PM (9 years ago)
Author:
raasch
Message:

leapfrog timestep scheme and upstream-spline advection scheme completely removed from the code,
reading of dt_fixed from restart file removed

File:
1 edited

Legend:

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

    r979 r1001  
    44! Current revisions:
    55! -----------------
    6 !
     6! arrays comunicated by module instead of parameter list
    77!
    88! Former revisions:
     
    6666! Call for all grid points
    6767!------------------------------------------------------------------------------!
    68     SUBROUTINE diffusion_v( ddzu, ddzw, km, tend, u, v, vsws, vswst, w )
    69 
     68    SUBROUTINE diffusion_v
     69
     70       USE arrays_3d
    7071       USE control_parameters
    7172       USE grid_variables
     
    7677       INTEGER ::  i, j, k
    7778       REAL    ::  kmxm, kmxp, kmzm, kmzp
    78        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1)
    79        REAL    ::  tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
    80        REAL, DIMENSION(:,:),   POINTER ::  vsws, vswst
    81        REAL, DIMENSION(:,:,:), POINTER ::  km, u, v, w
     79
    8280       REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  vsus
    8381
     
    219217! Call for grid point i,j
    220218!------------------------------------------------------------------------------!
    221     SUBROUTINE diffusion_v_ij( i, j, ddzu, ddzw, km, tend, u, v, &
    222                                vsws, vswst, w )
    223 
     219    SUBROUTINE diffusion_v_ij( i, j )
     220
     221       USE arrays_3d
    224222       USE control_parameters
    225223       USE grid_variables
     
    230228       INTEGER ::  i, j, k
    231229       REAL    ::  kmxm, kmxp, kmzm, kmzp
    232        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1)
    233        REAL    ::  tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
    234        REAL, DIMENSION(nzb:nzt+1)      ::  vsus
    235        REAL, DIMENSION(:,:),   POINTER ::  vsws, vswst
    236        REAL, DIMENSION(:,:,:), POINTER ::  km, u, v, w
     230
     231       REAL, DIMENSION(nzb:nzt+1) ::  vsus
    237232
    238233!
Note: See TracChangeset for help on using the changeset viewer.