Index: ecodyn.F
===================================================================
RCS file: /fs/cgd/csm/models/CVS.REPOS/lnd/lsm/ecodyn.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -c -r1.8 -r1.9
*** ecodyn.F    1998/07/07 15:18:52     1.8
--- ecodyn.F    1998/09/23 20:15:39     1.9
***************
*** 147,152 ****
--- 147,157 ----
        do k = 1, npt
           maxh2o = ch2op(ivt(k)) * (elai(k)+ esai(k))
           fwet(k) = max(h2ocan(k),0.) / max(maxh2o,1.e-06)
+ !
+ ! The following max function is to address pathological Cray blowup problem
+ ! whereby fwet actually was a roundoff negative at this point
+ !
+          fwet(k) = max(fwet(k),0.)
           fwet(k) = min( fwet(k), 1.) **0.667
        end do