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_dvrp.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! Error messages revised
    2831!
     
    7780    CHARACTER (LEN=*) ::  output_variable !<
    7881
    79     INTEGER(iwp) ::  i !<
    80     INTEGER(iwp) ::  j !<
    81     INTEGER(iwp) ::  k !<
     82!    INTEGER(iwp) ::  i !<
     83!    INTEGER(iwp) ::  j !<
     84!    INTEGER(iwp) ::  k !<
    8285
    8386    REAL(wp), DIMENSION(nxl_dvrp:nxr_dvrp+1,nys_dvrp:nyn_dvrp+1,nzb:nz_do3d) :: &
    8487              local_pf !<
     88
     89!
     90!-- Next line is to avoid compiler warning about unused variables. Please remove.
     91    IF ( local_pf(nxl_dvrp,nys_dvrp,nzb) == 0.0_wp )  CONTINUE
    8592
    8693!
Note: See TracChangeset for help on using the changeset viewer.