c begin include file cpass2.inc c + + + COMMON BLOCK DESCRIPTION + + + c + + + INSERT DESCRIPTION HERE + + + common /pass2/ t(mxtime) c + + + VARIABLE DECLARATIONS + + + real t c + + + VARIABLE DEFINITIONS + + + c t(mxtime) : real rainfall excess time (s) = tr(i)-tp+ts c end include file cpass2.inc