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

unused variables remove from several routines

File:
1 edited

Legend:

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

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    326326    IMPLICIT NONE
    327327
    328     INTEGER ::  i, j, k, l, m, recvcount_yx, sendcount_yx, xs
     328    INTEGER ::  i, j, k, l, m, xs
    329329
    330330    REAL ::  f_in(1:nz,nys:nyn,nxl:nxr), f_inv(nxl:nxr,1:nz,nys:nyn), &
Note: See TracChangeset for help on using the changeset viewer.