Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:
1 edited

Legend:

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

    r3083 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variable removed
     28!
     29! 3083 2018-06-19 14:03:12Z gronemeier
    2730!
    2831!
     
    144147
    145148    USE indices,                                                               &
    146         ONLY:  nbgp, nxl, nxr, nyn, nys, nzb, nzt
     149        ONLY:  nbgp, nxl, nxr, nyn, nys, nzb
    147150       
    148151    USE kinds
     
    173176    INTEGER(iwp) ::  n        !<
    174177    INTEGER(iwp) ::  netcdf_data_format_save !<
    175     INTEGER(iwp) ::  psi      !<
    176178    INTEGER(iwp) ::  sender   !<
    177179    INTEGER(iwp) ::  ind(6)   !<
Note: See TracChangeset for help on using the changeset viewer.