| 73 | C | C | 
| 74 | C     1. make small_f | C     1. make small_f | 
| 75 | C     2. cat seaice_calc_residual.f seaice_oceandrag_coeffs.f \ | C     2. cat seaice_calc_residual.f seaice_oceandrag_coeffs.f \ | 
| 76 |  | C        seaice_bottomdrag_coeffs.f \ | 
| 77 | C        seaice_calc_strainrates.f seaice_calc_viscosities.f \ | C        seaice_calc_strainrates.f seaice_calc_viscosities.f \ | 
| 78 | C        seaice_calc_rhs.f seaice_calc_lhs.f > taf_input.f | C        seaice_calc_rhs.f seaice_calc_lhs.f > taf_input.f | 
| 79 | C     3. staf -v1 -forward -toplevel seaice_calc_residual \ | C     3. staf -v1 -forward -toplevel seaice_calc_residual \ | 
| 86 | C | C | 
| 87 | C     1. make small_f | C     1. make small_f | 
| 88 | C     2. files="seaice_calc_residual.f seaice_oceandrag_coeffs.f \ | C     2. files="seaice_calc_residual.f seaice_oceandrag_coeffs.f \ | 
| 89 |  | C               seaice_bottomdrag_coeffs.f \ | 
| 90 | C               seaice_calc_strainrates.f seaice_calc_viscosities.f \ | C               seaice_calc_strainrates.f seaice_calc_viscosities.f \ | 
| 91 | C               seaice_calc_rhs.f seaice_calc_lhs.f" | C               seaice_calc_rhs.f seaice_calc_lhs.f" | 
| 92 | C     3. staf -forward -toplevel seaice_calc_residual \ | C     3. staf -forward -toplevel seaice_calc_residual \ |