Merge pull request #126 from billsacks/fixes_for_ifx

mosart1.1.13: Refactor conditional to work with ifx, which doesn't short-circuit

Author: ekluzek

docs/ChangeLog.md

@@ -1,4 +1,20 @@
 <hr>
+# Tag name:  mosart1.1.13
+### Originator(s): billsacks / ekluzek
+### Date: Feb 20, 2026
+### One-line Summary: Fixes needed to work with the ifx compiler
+
+Resolves issue https://github.com/ESCOMP/MOSART/issues/125
+
+Testing: standard testing
+  izumi ---- PASS
+  derecho -- PASS
+
+More details in the PRs:
+https://github.com/ESCOMP/MOSART/pull/126
+
+<hr>
+<hr>
 # Tag name:  mosart1.1.12
 ### Originator(s): slevis
 ### Date: Jul 31, 2025

src/riverroute/mosart_tspatialunit_type.F90

@@ -363,13 +363,14 @@ subroutine Init(this, begr, endr, ntracers, mosart_euler_calc, nlon, nlat, EMesh
             if (this%twidth(n) < 0._r8) then
                this%twidth(n) = 0._r8
             end if
-            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%tlen(n) > 0._r8 .and. this%twidth(n) <= 0._r8) then
-               this%twidth(n) = 0._r8
+            if (this%tlen(n) > 0._r8) then
+               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
+               if (this%twidth(n) < 0._r8) then
+                  this%twidth(n) = 0._r8
+               end if
             end if
          else
             this%hlen(n) = 0._r8