From 1b9d5f05dfa9b1dd11e52e7dbe0d6e7cc2d03efe Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 25 Nov 2022 09:21:14 +0100 Subject: [PATCH] Philippe 25/11/2022: remove XTIME_CUR (in TSTATPROFTIME derived type) --- src/MNH/modd_type_statprof.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/src/MNH/modd_type_statprof.f90 b/src/MNH/modd_type_statprof.f90 index 8b8a7cffb..24d4d7e19 100644 --- a/src/MNH/modd_type_statprof.f90 +++ b/src/MNH/modd_type_statprof.f90 @@ -47,7 +47,6 @@ public :: TSTATPROFTIME public :: TPROFILERDATA, TSTATIONDATA, TSTATPROFDATA TYPE :: TSTATPROFTIME - REAL :: XTIME_CUR = XUNDEF ! current time since last storage INTEGER :: N_CUR = 0 ! current step of storage REAL :: XTSTEP = 60. ! storage time step (default reset later by INI_STATION_n) type(date_time), dimension(:), ALLOCATABLE :: tpdates ! dates(n) (n: recording instants) -- GitLab