fix type issue with xlf

slevis-lmwg · Oct 4, 2018 · 0bb2565 · 0bb2565
1 parent d8f6ff6
commit 0bb2565
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/riverroute/RtmMod.F90 b/src/riverroute/RtmMod.F90
@@ -2579,7 +2579,7 @@ subroutine MOSART_init
            TUnit%hlen(iunit) = TUnit%area(iunit) / TUnit%rlenTotal(iunit) / 2._r8
 
            ! constrain hlen (hillslope length) values based on cell area
-           hlen_max = max(1000.0, sqrt(TUnit%area(iunit)))
+           hlen_max = max(1000.0_r8, sqrt(TUnit%area(iunit)))
            if(TUnit%hlen(iunit) > hlen_max) then
               TUnit%hlen(iunit) = hlen_max   ! allievate the outlier in drainag\e density estimation. TO DO
            end if