/[MITgcm]/MITgcm/pkg/seaice/seaice_jacvec.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_jacvec.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by mlosch, Fri Apr 22 08:50:34 2016 UTC revision 1.8 by mlosch, Tue May 23 16:24:46 2017 UTC
# Line 69  C     i,j,bi,bj :: loop indices Line 69  C     i,j,bi,bj :: loop indices
69        _RL epsilon, reps        _RL epsilon, reps
70  CEOP  CEOP
71  C     Instructions for using TAF or TAMC to generate exact Jacobian times  C     Instructions for using TAF or TAMC to generate exact Jacobian times
72  C     vector operations:  C     vector operations (if SEAICE_ALLOW_MOM_ADVECTION is defined, the
73    C     file list also needs to include seaice_mom_advection.f,
74    C     mom_calc_hfacz.f, mom_calc_ke.f, mom_calc_relvort3.f,
75    C     mom_vi_u_coriolis.f, mom_vi_u_coriolis_c4.f, mom_vi_u_grad_ke.f,
76    C     mom_vi_v_coriolis.f, mom_vi_v_coriolis_c4.f, mom_vi_v_grad_ke.f
77    C     plus flow information for diagnostics_fill.f:
78    CCCCCCCADJ SUBROUTINE DIAGNOSTICS_FILL INPUT  = 1,2,3,4,5,6,7,8
79    CCCCCCCADJ SUBROUTINE DIAGNOSTICS_FILL OUTPUT =
80    C     )
81  C  C
82  C     1. make small_f  C     1. make small_f
83  C     2. cat seaice_calc_residual.f seaice_oceandrag_coeffs.f \  C     2. cat seaice_calc_residual.f seaice_oceandrag_coeffs.f \
84  C        seaice_bottomdrag_coeffs.f \  C        seaice_bottomdrag_coeffs.f seaice_calc_stressdiv.f \
85  C        seaice_calc_strainrates.f seaice_calc_viscosities.f \  C        seaice_calc_strainrates.f seaice_calc_viscosities.f \
86  C        seaice_calc_rhs.f seaice_calc_lhs.f > taf_input.f  C        seaice_calc_rhs.f seaice_calc_lhs.f > taf_input.f
87  C     3. staf -v1 -forward -toplevel seaice_calc_residual \  C     3. staf -v1 -forward -toplevel seaice_calc_residual \
# Line 86  C     starting with version 2.0): Line 94  C     starting with version 2.0):
94  C  C
95  C     1. make small_f  C     1. make small_f
96  C     2. files="seaice_calc_residual.f seaice_oceandrag_coeffs.f \  C     2. files="seaice_calc_residual.f seaice_oceandrag_coeffs.f \
97  C               seaice_bottomdrag_coeffs.f \  C               seaice_bottomdrag_coeffs.f seaice_calc_stressdiv.f \
98  C               seaice_calc_strainrates.f seaice_calc_viscosities.f \  C               seaice_calc_strainrates.f seaice_calc_viscosities.f \
99  C               seaice_calc_rhs.f seaice_calc_lhs.f"  C               seaice_calc_rhs.f seaice_calc_lhs.f"
100  C     3. staf -forward -toplevel seaice_calc_residual \  C     3. staf -forward -toplevel seaice_calc_residual \
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22