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