Ignore:
Timestamp:
Mar 6, 2019 4:58:03 PM (4 years ago)
Author:
raasch
Message:

unused variables removed, interoperable C datatypes introduced in particle type to avoid compiler warnings

File:
1 edited

Legend:

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

    r3767 r3786  
    2525! -----------------
    2626! $Id$
     27! further unused variables removed
     28!
     29! 3767 2019-02-27 08:18:02Z raasch
    2730! unused variable for file index removed from rrd-subroutines parameter list
    2831!
     
    25842587
    25852588       INTEGER(iwp) ::  i                       !< running index
    2586        INTEGER(iwp) ::  i_off                   !< index offset of surface element, seen from atmospheric grid point
    25872589       INTEGER(iwp) ::  j                       !< running index
    2588        INTEGER(iwp) ::  j_off                   !< index offset of surface element, seen from atmospheric grid point
    25892590       INTEGER(iwp) ::  k                       !< running index
    25902591       INTEGER(iwp) ::  kn                      !< running index
     
    65616562    IMPLICIT NONE
    65626563
    6563     INTEGER(iwp) ::  i                 !<
    65646564    INTEGER(iwp) ::  k                 !<
    65656565    INTEGER(iwp) ::  l                 !< running index surface orientation
     
    72627262       IMPLICIT NONE
    72637263
    7264        INTEGER(iwp)                          :: i, j, k, l, m   !< running indices
     7264       INTEGER(iwp)                          :: i, j, k, m   !< running indices
    72657265
    72667266
Note: See TracChangeset for help on using the changeset viewer.