subroutines,
45 total:

APREP   1,2
CANADD  2
CANALB  1,5
CANVAP  2
CGROW   1
CHKWAT  4,7
CLASSA  1,4
CLASSB  1
CLASSD  1
CLASSI  1
CLASST  1,19
CLASSW  1,58
CLASS_CONST  16
CWCALC  4
DIASURFZ  4,5
DRCOEF  5
FLXSURFZ  5,5
GRALB   1,1
GRDRAN  6,3
GRINFL  4,5
ICEBAL  2
SLDIAG  
SNINFL  2
SNOADD  4
SNOALBA  1,1
SNOALBW  2
SNOVAP  4
SUBCAN  2
TFREEZ  4
TMCALC  4
TMELT   2
TNPOST  2
TNPREP  2
TPREP   1
TSOLVC  2,6
TSOLVE  2,7
TSPOST  2
TSPREP  2
TWCALC  4
WATROF  4,1
WEND    1,1
WFILL   1
WFLOW   1
WPREP   1
XIT     28