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

    r668 r1001  
    33!------------------------------------------------------------------------------!
    44! Current revisions:
    5 ! -----------------
     5! ------------------
     6! some arrays comunicated by module instead of parameter list
    67!
    78! Former revisions:
     
    5455! Call for all grid points
    5556!------------------------------------------------------------------------------!
    56     SUBROUTINE diffusion_s( ddzu, ddzw, kh, s, s_flux_b, s_flux_t, &
    57                             wall_s_flux, tend )
    58 
     57    SUBROUTINE diffusion_s( s, s_flux_b, s_flux_t, wall_s_flux )
     58
     59       USE arrays_3d
    5960       USE control_parameters
    6061       USE grid_variables
     
    6566       INTEGER ::  i, j, k
    6667       REAL    ::  vertical_gridspace
    67        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1)
    68        REAL    ::  tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
    6968       REAL    ::  wall_s_flux(0:4)
    70        REAL, DIMENSION(:,:),   POINTER ::  s_flux_b, s_flux_t
    71        REAL, DIMENSION(:,:,:), POINTER ::  kh, s
     69       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
     70       REAL, DIMENSION(:,:,:), POINTER ::  s
    7271
    7372       DO  i = nxl, nxr
     
    166165! Call for grid point i,j
    167166!------------------------------------------------------------------------------!
    168     SUBROUTINE diffusion_s_ij( i, j, ddzu, ddzw, kh, s, s_flux_b, s_flux_t, &
    169                                wall_s_flux, tend )
    170 
     167    SUBROUTINE diffusion_s_ij( i, j, s, s_flux_b, s_flux_t, wall_s_flux )
     168
     169       USE arrays_3d
    171170       USE control_parameters
    172171       USE grid_variables
     
    177176       INTEGER ::  i, j, k
    178177       REAL    ::  vertical_gridspace
    179        REAL    ::  ddzu(1:nzt+1), ddzw(1:nzt+1)
    180        REAL    ::  tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
    181178       REAL    ::  wall_s_flux(0:4)
    182        REAL, DIMENSION(:,:),   POINTER ::  s_flux_b, s_flux_t
    183        REAL, DIMENSION(:,:,:), POINTER ::  kh, s
     179       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
     180       REAL, DIMENSION(:,:,:), POINTER ::  s
    184181
    185182!
Note: See TracChangeset for help on using the changeset viewer.