Ignore:
Timestamp:
Feb 27, 2019 2:35:58 PM (2 years ago)
Author:
raasch
Message:

variables commented out + statement added to avoid compiler warnings about unused variables

File:
1 edited

Legend:

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

    r3655 r3768  
    2626! -----------------
    2727! $Id$
     28! unused variables commented out to avoid compiler warnings
     29!
     30! 3655 2019-01-07 16:51:22Z knoop
    2831! Corrected "Former revisions" section
    2932!
     
    5255    USE arrays_3d
    5356   
    54     USE control_parameters,                                                    &
    55         ONLY:  urban_surface
     57!    USE control_parameters,                                                    &
     58!        ONLY:  urban_surface
    5659   
    5760    USE indices
     
    6770    IMPLICIT NONE
    6871
    69     INTEGER(iwp) ::  i  !< grid index
    70     INTEGER(iwp) ::  j  !< grid index
    71     INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
     72!    INTEGER(iwp) ::  i  !< grid index
     73!    INTEGER(iwp) ::  j  !< grid index
     74!    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
    7275
    7376!
Note: See TracChangeset for help on using the changeset viewer.