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_data_output_mask.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! Add terrain-following output
    2831!
     
    7679
    7780    INTEGER(iwp) ::  av             !<
    78     INTEGER(iwp) ::  i              !<
    79     INTEGER(iwp) ::  j              !<
    80     INTEGER(iwp) ::  k              !<
    81     INTEGER(iwp) ::  topo_top_ind   !< k index of highest horizontal surface
     81!    INTEGER(iwp) ::  i              !<
     82!    INTEGER(iwp) ::  j              !<
     83!    INTEGER(iwp) ::  k              !<
     84!    INTEGER(iwp) ::  topo_top_ind   !< k index of highest horizontal surface
    8285
    8386    LOGICAL ::  found               !<
     
    8689       DIMENSION(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) ::  &
    8790          local_pf   !<
     91
     92!
     93!-- Next line is to avoid compiler warning about unused variables. Please remove.
     94    IF ( av == 0  .OR.                                                                             &
     95         local_pf(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) == 0.0_wp )  CONTINUE
    8896
    8997
Note: See TracChangeset for help on using the changeset viewer.