From 7095263da4e3ccfbbbc818db49ae5a90bc7e6cd2 Mon Sep 17 00:00:00 2001 From: Heiko Klein Date: Thu, 10 Jun 2021 08:54:53 +0000 Subject: [PATCH] own branch of working copy of DSA_Pevek --- src/common/snapfilML.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/common/snapfilML.f90 b/src/common/snapfilML.f90 index 721ab6f6..0874849a 100644 --- a/src/common/snapfilML.f90 +++ b/src/common/snapfilML.f90 @@ -17,7 +17,7 @@ !> Common for input felt files module snapfilML - use iso_fortran_env, only: int16 + use iso_fortran_env, only: int16, int32 use snapdimML, only: mavail implicit none @@ -53,8 +53,8 @@ module snapfilML integer(kind=int16) :: FILETYPE !> timePos position of #fchour in current time integer(kind=int16) :: TIMEPOS - !> offset in hours from first sorted timestep - integer(kind=int16) :: OHOUR + !> offset in hours since 1970-01-01 00:00 + integer(kind=int32) :: OHOUR !> pointer to next forward time data integer(kind=int16) :: NAVAIL !> pointer to next backward (=previous) time data