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

    r3222 r3241  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 3222 2018-08-30 13:35:35Z suehring
    2831! +building_type, pavement_type, vegetation_type, water_type
    2932! +building_type_name, pavement_type_name, vegetation_type_name, water_type_name
     
    16231626       INTEGER(iwp) ::  j         !< running index y-direction
    16241627       INTEGER(iwp) ::  k         !< running index z-direction
    1625        INTEGER(iwp) ::  l         !< index variable used to distinguish surface facing
    1626        INTEGER(iwp) ::  m         !< running index surface elements
    16271628
    16281629       INTEGER(iwp)                 ::  start_index_lsm_h !< dummy to determing local start index in surface type for given (j,i), for horizontal natural surfaces
     
    33663367                                  nysc, nys_on_file, found )
    33673368
    3368        USE pegrid,                                                             &
    3369            ONLY: myid, numprocs_previous_run
    3370 
    33713369       IMPLICIT NONE
    3372 
    3373        CHARACTER (LEN=1)  ::  dum         !< dummy to create correct string for reading input variable
    33743370
    33753371       INTEGER(iwp)       ::  i           !< running index along x-direction, refers to former domain size
     
    33773373       INTEGER(iwp)       ::  j           !< running index along y-direction, refers to former domain size
    33783374       INTEGER(iwp)       ::  jc          !< running index along y-direction, refers to former domain size
    3379        INTEGER(iwp)       ::  k           !< running index along z-direction
    33803375       INTEGER(iwp)       ::  m           !< running index for surface elements, refers to gathered array encompassing all surface types
    33813376       INTEGER(iwp)       ::  mm          !< running index for surface elements, refers to individual surface types
Note: See TracChangeset for help on using the changeset viewer.