Changeset 3241 for palm/trunk/SOURCE/eqn_state_seawater.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

• palm/trunk/SOURCE/eqn_state_seawater.f90 (modified) (3 diffs)

palm/trunk/SOURCE/eqn_state_seawater.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -143 +146 @@
        INTEGER(iwp) ::  j       !< running index y direction
        INTEGER(iwp) ::  k       !< running index z direction
-       INTEGER(iwp) ::  l       !< running index of surface type, south- or north-facing wall
        INTEGER(iwp) ::  m       !< running index surface elements
-       INTEGER(iwp) ::  surf_e  !< End index of surface elements at (j,i)-gridpoint
-       INTEGER(iwp) ::  surf_s  !< Start index of surface elements at (j,i)-gridpoint
 
        REAL(wp) ::  pden   !<
@@ -258 +258 @@
        INTEGER(iwp) ::  j       !< running index y direction
        INTEGER(iwp) ::  k       !< running index z direction
-       INTEGER(iwp) ::  l       !< running index of surface type, south- or north-facing wall
        INTEGER(iwp) ::  m       !< running index surface elements
        INTEGER(iwp) ::  surf_e  !< End index of surface elements at (j,i)-gridpoint