From 72c9f5949433c93037e7c31205452a06fd0f9963 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 17 Dec 2021 10:10:28 +0100
Subject: [PATCH] Philippe 17/12/2021: remove unused time variables (and remove
use of non initialised time values)
---
src/MNH/mode_RBK90_Integrator.f90 | 18 ++++--------------
1 file changed, 4 insertions(+), 14 deletions(-)
diff --git a/src/MNH/mode_RBK90_Integrator.f90 b/src/MNH/mode_RBK90_Integrator.f90
index ae11720e3..536726def 100644
--- a/src/MNH/mode_RBK90_Integrator.f90
+++ b/src/MNH/mode_RBK90_Integrator.f90
@@ -1,10 +1,11 @@
-!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! Modifications:
-! Philippe 13/02/2018: use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q
+! P. Wautelet 13/02/2018: use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q
+! P. Wautelet 17/12/2021: remove unused time variables (and remove use of non initialised time values)
!-----------------------------------------------------------------
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
@@ -1316,9 +1317,6 @@ USE MODI_CH_FCN
REAL :: T, Y(N)
!~~~> Output variables
REAL :: Ydot(N)
-!~~~> Local variables
- REAL :: Told
- REAL :: TIME
!
INTEGER, INTENT(IN) :: KMI ! model number
INTEGER, INTENT(IN) :: KVECNPT
@@ -1330,8 +1328,6 @@ INTEGER, INTENT(IN) :: KVECNPT
INTEGER :: ISPECIES ! Ancillary variable
- Told = TIME
- TIME = T
!JPP CALL Update_SUN()
!JPP CALL Update_RCONST()
!JPP CALL Fun( Y, FIX, RCONST, Ydot )
@@ -1352,7 +1348,6 @@ INTEGER, INTENT(IN) :: KVECNPT
Ydot(JLSHIFT+1:JLSHIFT+ISPECIES) = ZFCN(JL,1:ISPECIES)
JLSHIFT = JLSHIFT + ISPECIES
END DO
- TIME = Told
END SUBROUTINE FunTemplate
@@ -1389,8 +1384,6 @@ INTEGER, INTENT(IN) :: KMI ! model number
INTEGER, INTENT(IN) :: KVECNPT
!
!~~~> Local variables
- REAL :: Told
- REAL :: TIME
!#ifdef FULL_ALGEBRA
!## INTEGER :: i, j
!#endif
@@ -1399,8 +1392,6 @@ INTEGER, INTENT(IN) :: KVECNPT
INTEGER :: JL, JLL, JLSHIFT ! Loop indexes
INTEGER :: ISPECIES ! Ancillary variable
- Told = TIME
- TIME = T
!JPP CALL Update_SUN()
!JPP CALL Update_RCONST()
!#ifdef FULL_ALGEBRA
@@ -1441,7 +1432,6 @@ INTEGER, INTENT(IN) :: KVECNPT
JLSHIFT = JLSHIFT + NSPARSEDIM_NAQ
END IF
END DO
- TIME = Told
END SUBROUTINE JacTemplate
--
GitLab