Changeset 3761 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Feb 25, 2019 3:31:42 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3735 2019-02-12 09:52:40Z dom_dwd_user
 ! Passing variable j (averaged output?) to 
 ! module_interface.f90:chem_check_data_output.
@@ -843 +846 @@
     INTEGER(iwp) ::  netcdf_data_format_save         !< initial value of netcdf_data_format
     INTEGER(iwp) ::  position                        !< index position of string
-    INTEGER(iwp) ::  lsp                             !< running index for chem spcs.
 
     LOGICAL     ::  found                            !< flag, true if output variable is already marked for averaging
 
     REAL(wp)    ::  dt_spinup_max                    !< maximum spinup timestep in nested domains
-    REAL(wp)    ::  dum                              !< dummy variable
     REAL(wp)    ::  gradient                         !< local gradient
     REAL(wp)    ::  remote = 0.0_wp                  !< MPI id of remote processor