From f4ca2a6d10fbf8d2098fecad175c5fa8e7b37d4e Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Thu, 22 Dec 2022 18:27:01 +0100
Subject: [PATCH] cleaning of unused variables
---
src/miller_mod.F90 | 32 --------------------------------
1 file changed, 32 deletions(-)
diff --git a/src/miller_mod.F90 b/src/miller_mod.F90
index 86db1145..c9594b76 100644
--- a/src/miller_mod.F90
+++ b/src/miller_mod.F90
@@ -15,24 +15,13 @@ MODULE miller
public:: get_miller, set_miller_parameters
public:: rho, kappa, delta, s_kappa, s_delta, drR, drZ, zeta, s_zeta
public:: thetaShift
- public:: mMode, nMode
public:: thetak, thetad
- public:: aSurf, Delta2, Delta3, theta2, theta3, Raxis, Zaxis
- public:: Deltam, Deltan, s_Deltam, s_Deltan, thetam, thetan
- public:: cN_m, sN_m, cNdr_m, sNdr_m
private
real(dp) :: rho, kappa, delta, s_kappa, s_delta, drR, drZ, zeta, s_zeta
-
- INTEGER :: mMode, nMode
real(dp) :: thetaShift
real(dp) :: thetak, thetad
- real(dp) :: aSurf, Delta2, Delta3, theta2, theta3, Raxis, Zaxis
- real(dp) :: Deltam, Deltan, s_Deltam, s_Deltan, thetam, thetan
-
- INTEGER, PARAMETER :: IND_M=32
- real(dp), DIMENSION(0:IND_M-1) :: cN_m, sN_m, cNdr_m, sNdr_m
CONTAINS
@@ -52,27 +41,6 @@ CONTAINS
thetak = 0.0
thetad = 0.0
- aSurf = 0.54
- Delta2 = 1.0
- Delta3 = 1.0
- theta2 = 0.0
- theta3 = 0.0
- Raxis = 1.0
- Zaxis = 0.0
-
- mMode = 2
- nMode = 3
- Deltam = 1.0
- Deltan = 1.0
- s_Deltam = 0.0
- s_Deltan = 0.0
- thetam = 0.0
- thetan = 0.0
-
- cN_m = 0.0
- sN_m = 0.0
- cNdr_m = 0.0
- sNdr_m = 0.0
end subroutine set_miller_parameters
!>Get Miller metric, magnetic field, jacobian etc.
--
GitLab