| 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 \ |