!------------------------------------------------------------------------ ! set water availability constant "ecof" and land mask "land". ! limit minimum wind speed to 100 cm/s !------------------------------------------------------------------------ j = IFIX(tjloc(i1)) c constants for 10 m winds (correction for knots c crit = 6000./1.944 !cor1 = .120 !cor2 = 720. cor1 = 0.0 !MB/MJM Test#14 2014JAN21 cor2 = 0.0 !MB/MJM Test#14 2014JAN21