Merge pull request #14 from ESCOMP/jedwards/xlffix

fix type issue with xlf
slevis-lmwg · Oct 9, 2018 · a4e75d4 · a4e75d4
2 parents d8f6ff6 + 0bb2565
commit a4e75d4
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