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/inflow_turbulence.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    6161    IMPLICIT NONE
    6262
    63     INTEGER ::  i, imax, j, k, l, ngp_ifd, ngp_pr
    64 
    65     REAL, DIMENSION(1:2) ::  volume_flow_l, volume_flow_offset
     63    INTEGER ::  i, j, k, l, ngp_ifd, ngp_pr
     64
    6665    REAL, DIMENSION(nzb:nzt+1,5,nbgp) ::  avpr, avpr_l
    6766    REAL, DIMENSION(nzb:nzt+1,nysg:nyng,5,nbgp) ::  inflow_dist
Note: See TracChangeset for help on using the changeset viewer.