Commit ad8a8404 authored by Karsten Bolding's avatar Karsten Bolding
Browse files

fixed initialisation of river data

parent f2f334a9
......@@ -231,7 +231,7 @@
REAL_4B :: x(1)
logical, save :: first=.true.
integer, save :: save_n=1,last_indx=-1
REALTYPE, save :: t_1,t_2
REALTYPE, save :: t_1,t_2,loop0
!EOP
!-------------------------------------------------------------------------
#ifdef DEBUG
......@@ -243,7 +243,11 @@
#define NO_INTERPOL
#ifdef NO_INTERPOL
t = (loop-1)*timestep
if (first) then
loop0=loop-1
first = .false.
endif
t = (loop-loop0)*timestep
do indx=save_n,textr
if (river_times(indx) .ge. real(t + offset)) EXIT
end do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment