Removed compiler warnings

piclas-framework · Dec 5, 2022 · 388129a · 388129a
1 parent 5aa7d6e
commit 388129a
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 9 deletions.
diff --git a/src/io_hdf5/hdf5_output_state.f90 b/src/io_hdf5/hdf5_output_state.f90
@@ -128,8 +128,11 @@ SUBROUTINE WriteStateToHDF5(MeshFileName,OutputTime,PreviousTime)
 INTEGER(KIND=IK)               :: nVar
 #endif /*defined(PARTICLES)*/
 #ifdef PARTICLES
-REAL                           :: NumSpec(nSpecAnalyze),TmpArray(1,1),TmpArray2(3,1)
+REAL                           :: NumSpec(nSpecAnalyze),TmpArray(1,1)
 INTEGER(KIND=IK)               :: SimNumSpec(nSpecAnalyze)
+#if USE_HDG
+REAL                           :: TmpArray2(3,1)
+#endif /*USE_HDG*/
 #endif /*PARTICLES*/
 REAL                           :: StartT,EndT
 

diff --git a/src/particles/analyze/particle_analyze.f90 b/src/particles/analyze/particle_analyze.f90
@@ -1366,14 +1366,14 @@ SUBROUTINE AnalyzeParticles(Time)
 #endif /*USE_MPI*/
 !-----------------------------------------------------------------------------------------------------------------------------------
 ! Analyze Routines that require MPI_REDUCE of other variables
-#if USE_HDG
+! Moving Average of PCoupl:
+IF(CalcCoupledPower) THEN
   ! Moving Average of PCoupl:
-  IF(CalcCoupledPower) THEN
-    ! Moving Average of PCoupl:
-    IF(ABS(Time-RestartTime).GT.0.0) PCouplAverage = PCouplAverage / (Time-RestartTime)
-    ! current PCoupl (Delta_E / Timestep)
-    PCoupl = PCoupl / dt
-  END IF
+  IF(ABS(Time-RestartTime).GT.0.0) PCouplAverage = PCouplAverage / (Time-RestartTime)
+  ! current PCoupl (Delta_E / Timestep)
+  PCoupl = PCoupl / dt
+END IF
+#if USE_HDG
 ! Calculate electric potential for special BCs BoundaryType = (/2,2/) to meet a specific input power
 IF((iter.GT.0).AND.CalcPCouplElectricPotential) CALL CalculatePCouplElectricPotential()
 #endif /*USE_HDG*/

diff --git a/src/posti/piclas2vtk/piclas2vtk.f90 b/src/posti/piclas2vtk/piclas2vtk.f90
@@ -56,7 +56,7 @@ PROGRAM piclas2vtk
 ! LOCAL VARIABLES
 REAL                           :: Time                              ! Used to track computation time
 CHARACTER(LEN=255)             :: NodeTypeVisuOut, InputStateFile, MeshFile, File_Type, DGSolutionDataset
-INTEGER                        :: NVisu, iArgs, iArgsStart, TimeStampLength, iExt, iField
+INTEGER                        :: NVisu, iArgs, iArgsStart, TimeStampLength, iExt
 LOGICAL                        :: CmdLineMode, NVisuDefault         ! In command line mode only NVisu is specified directly,
                                                                     ! otherwise a parameter file is needed
 CHARACTER(LEN=2)               :: NVisuString                       ! String containing NVisu from command line option