Ignore:
Timestamp:
Feb 2, 2013 11:24:22 AM (9 years ago)
Author:
raasch
Message:

unused variables remove from several routines

File:
1 edited

Legend:

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

    r1037 r1092  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    9797
    9898       INTEGER ::  i, j, k
    99        REAL    ::  vertical_gridspace
    10099       REAL    ::  wall_s_flux(0:4)
    101100       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
     
    211210
    212211       INTEGER ::  i, j, k
    213        REAL    ::  vertical_gridspace
    214212       REAL    ::  wall_s_flux(0:4)
    215213       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
     
    332330
    333331       INTEGER ::  i, j, k
    334        REAL    ::  vertical_gridspace
    335332       REAL    ::  wall_s_flux(0:4)
    336333       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
Note: See TracChangeset for help on using the changeset viewer.