Changeset 3241 for palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3183 2018-07-27 14:25:55Z suehring
 ! * Adjustment to new Inifor version: 
 !   - No vertical interpolation/extrapolation of lateral boundary data required
@@ -289 +292 @@
        INTEGER(iwp) ::  j !< running index y-direction
        INTEGER(iwp) ::  k !< running index z-direction
-       INTEGER(iwp) ::  t !< running index for time levels
 
        REAL(wp) ::  ddt_lsf !< inverse value of time resolution of forcing data
@@ -718 +720 @@
        CHARACTER (LEN=*) ::  dopr_unit !< local value of dopr_unit
  
-       INTEGER(iwp) ::  user_pr_index !<    
        INTEGER(iwp) ::  var_count     !< 
 
@@ -943 +944 @@
        INTEGER(iwp) ::  k             !<
        INTEGER(iwp) ::  nt            !<
-       INTEGER(iwp) ::  t             !< running index for time levels
 
        REAL(wp) ::  fac               !<