Changeset 3768 for palm/trunk/SOURCE/user_flight.f90

Timestamp:

Feb 27, 2019 2:35:58 PM (4 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/user_flight.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_flight.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables commented out + statement added to avoid compiler warnings
+! 
+! 3684 2019-01-20 20:20:58Z knoop
 ! Corrected "Former revisions" section
 ! 
@@ -59 +62 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i  !< index along x
-    INTEGER(iwp) ::  j  !< index along y
-    INTEGER(iwp) ::  k  !< index along z
+!    INTEGER(iwp) ::  i  !< index along x
+!    INTEGER(iwp) ::  j  !< index along y
+!    INTEGER(iwp) ::  k  !< index along z
     INTEGER(iwp) ::  id !< variable identifyer, according to the settings in user_init_flight
         
     REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var !< treated variable
+
+!
+!-- Next line is to avoid compiler warning about unused variables. Please remove.
+    IF ( id == 0  .OR.  var(nzb,nysg,nxlg) == 0.0_wp )  CONTINUE
 
 !