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

    r3183 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3183 2018-07-27 14:25:55Z suehring
    2730! * Adjustment to new Inifor version:
    2831!   - No vertical interpolation/extrapolation of lateral boundary data required
     
    289292       INTEGER(iwp) ::  j !< running index y-direction
    290293       INTEGER(iwp) ::  k !< running index z-direction
    291        INTEGER(iwp) ::  t !< running index for time levels
    292294
    293295       REAL(wp) ::  ddt_lsf !< inverse value of time resolution of forcing data
     
    718720       CHARACTER (LEN=*) ::  dopr_unit !< local value of dopr_unit
    719721 
    720        INTEGER(iwp) ::  user_pr_index !<   
    721722       INTEGER(iwp) ::  var_count     !<
    722723
     
    943944       INTEGER(iwp) ::  k             !<
    944945       INTEGER(iwp) ::  nt            !<
    945        INTEGER(iwp) ::  t             !< running index for time levels
    946946
    947947       REAL(wp) ::  fac               !<
Note: See TracChangeset for help on using the changeset viewer.