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

    r979 r1001  
    44! Current revisions:
    55! -----------------
    6 !
     6! arrays comunicated by module instead of parameter list
    77!
    88! Former revisions:
     
    6060! Call for all grid points
    6161!------------------------------------------------------------------------------!
    62     SUBROUTINE diffusion_w( ddzu, ddzw, km, tend, u, v, w )
    63 
     62    SUBROUTINE diffusion_w
     63
     64       USE arrays_3d
    6465       USE control_parameters
    6566       USE grid_variables
     
    7071       INTEGER ::  i, j, k
    7172       REAL    ::  kmxm, kmxp, kmym, kmyp
    72        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1)
    73        REAL    ::  tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
    74        REAL, DIMENSION(:,:,:), POINTER ::  km, u, v, w
     73
    7574       REAL, DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsus, wsvs
    7675
     
    170169! Call for grid point i,j
    171170!------------------------------------------------------------------------------!
    172     SUBROUTINE diffusion_w_ij( i, j, ddzu, ddzw, km, tend, u, v, w )
    173 
     171    SUBROUTINE diffusion_w_ij( i, j )
     172
     173       USE arrays_3d
    174174       USE control_parameters
    175175       USE grid_variables
     
    180180       INTEGER ::  i, j, k
    181181       REAL    ::  kmxm, kmxp, kmym, kmyp
    182        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1)
    183        REAL    ::  tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
    184        REAL, DIMENSION(nzb:nzt+1)      ::  wsus, wsvs
    185        REAL, DIMENSION(:,:,:), POINTER ::  km, u, v, w
     182
     183       REAL, DIMENSION(nzb:nzt+1) ::  wsus, wsvs
    186184
    187185
Note: See TracChangeset for help on using the changeset viewer.