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_grid.f90

    r3655 r3768  
    2525! -----------------
    2626! $Id$
     27! variables commented + statement added to avoid compiler warnings about unused variables
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! dz was replaced by dz(1)
    2831!
     
    8285    IMPLICIT NONE
    8386
    84     INTEGER(iwp)                                           ::  k_topo      !< topography top index
     87!    INTEGER(iwp)                                           ::  k_topo      !< topography top index
    8588    INTEGER(iwp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  topo_3d     !< 3D topography field
    8689
    87     REAL(wp) ::  h_topo !< user-defined topography height
     90!    REAL(wp) ::  h_topo !< user-defined topography height
     91
     92!
     93!-- Next line is to avoid compiler warning about unused variables. Please remove.
     94    IF ( topo_3d(nzb,nysg,nxlg) == 0 )  CONTINUE
     95
    8896
    8997!
Note: See TracChangeset for help on using the changeset viewer.