From cef0bac4e8cb5e12b48c707aa1f532f4fce1f3cb Mon Sep 17 00:00:00 2001 From: Alok Gupta Date: Wed, 21 Jan 2026 14:41:04 +0100 Subject: [PATCH 1/3] olivia settings --- src/riverroute/mosart_tspatialunit_type.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/riverroute/mosart_tspatialunit_type.F90 b/src/riverroute/mosart_tspatialunit_type.F90 index cb4f6e4..80449b7 100644 --- a/src/riverroute/mosart_tspatialunit_type.F90 +++ b/src/riverroute/mosart_tspatialunit_type.F90 @@ -360,11 +360,13 @@ subroutine Init(this, begr, endr, ntracers, nt_ice, nlon, nlat, EMesh, & if (this%twidth(n) < 0._r8) then this%twidth(n) = 0._r8 end if + if ( this%tlen(n) > 0._r8) then if ( this%tlen(n) > 0._r8 .and. & (this%rlenTotal(n)-this%rlen(n))/this%tlen(n) > 1._r8 ) then this%twidth(n) = c_twid(n)*this%twidth(n) * & ((this%rlenTotal(n)-this%rlen(n))/this%tlen(n)) end if + endif if (this%tlen(n) > 0._r8 .and. this%twidth(n) <= 0._r8) then this%twidth(n) = 0._r8 end if From 1ac3d6e3ef4af79882466b8eef5aa73f721b09e1 Mon Sep 17 00:00:00 2001 From: mvdebolskiy <80036033+mvdebolskiy@users.noreply.github.com> Date: Wed, 28 Jan 2026 14:28:10 +0100 Subject: [PATCH 2/3] fix condition --- src/riverroute/mosart_tspatialunit_type.F90 | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/riverroute/mosart_tspatialunit_type.F90 b/src/riverroute/mosart_tspatialunit_type.F90 index 80449b7..f3e055e 100644 --- a/src/riverroute/mosart_tspatialunit_type.F90 +++ b/src/riverroute/mosart_tspatialunit_type.F90 @@ -361,11 +361,10 @@ subroutine Init(this, begr, endr, ntracers, nt_ice, nlon, nlat, EMesh, & this%twidth(n) = 0._r8 end if if ( this%tlen(n) > 0._r8) then - if ( this%tlen(n) > 0._r8 .and. & - (this%rlenTotal(n)-this%rlen(n))/this%tlen(n) > 1._r8 ) then - this%twidth(n) = c_twid(n)*this%twidth(n) * & - ((this%rlenTotal(n)-this%rlen(n))/this%tlen(n)) - end if + if ((this%rlenTotal(n)-this%rlen(n))/this%tlen(n) > 1._r8 ) then + this%twidth(n) = c_twid(n)*this%twidth(n) * & + ((this%rlenTotal(n)-this%rlen(n))/this%tlen(n)) + end if endif if (this%tlen(n) > 0._r8 .and. this%twidth(n) <= 0._r8) then this%twidth(n) = 0._r8 From abb3781e9551487ed7b6783d4db29c6cc0b09d08 Mon Sep 17 00:00:00 2001 From: Alok Gupta Date: Wed, 28 Jan 2026 14:39:23 +0100 Subject: [PATCH 3/3] removing unnecessary message --- src/riverroute/mosart_restfile.F90 | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/riverroute/mosart_restfile.F90 b/src/riverroute/mosart_restfile.F90 index a76611c..0cefe54 100644 --- a/src/riverroute/mosart_restfile.F90 +++ b/src/riverroute/mosart_restfile.F90 @@ -396,9 +396,6 @@ subroutine mosart_rest_restart(ncid, flag) lname = 'runoff (runoff)' uname = 'm3/s' dfld => ctl%runoff(:,nt) - if (flag == 'read') then - write(6,*)'DEBUG: reading in restart for '//trim(vname) - end if elseif (nv == 3) then vname = 'DVOLRDT_'//trim(ctl%tracer_names(nt)) lname = 'water volume change in cell (dvolrdt)'