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

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm/pkg/seaice/seaice_jacvec.F	2016/04/22 08:50:34	1.7
+++ MITgcm/pkg/seaice/seaice_jacvec.F	2017/05/23 16:24:46	1.8
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jacvec.F,v 1.7 2016/04/22 08:50:34 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jacvec.F,v 1.8 2017/05/23 16:24:46 mlosch Exp $
 C $Name:  $
 
 #include "SEAICE_OPTIONS.h"
@@ -69,11 +69,19 @@
       _RL epsilon, reps
 CEOP
 C     Instructions for using TAF or TAMC to generate exact Jacobian times
-C     vector operations:
+C     vector operations (if SEAICE_ALLOW_MOM_ADVECTION is defined, the
+C     file list also needs to include seaice_mom_advection.f, 
+C     mom_calc_hfacz.f, mom_calc_ke.f, mom_calc_relvort3.f, 
+C     mom_vi_u_coriolis.f, mom_vi_u_coriolis_c4.f, mom_vi_u_grad_ke.f,
+C     mom_vi_v_coriolis.f, mom_vi_v_coriolis_c4.f, mom_vi_v_grad_ke.f
+C     plus flow information for diagnostics_fill.f:
+CCCCCCCADJ SUBROUTINE DIAGNOSTICS_FILL INPUT  = 1,2,3,4,5,6,7,8
+CCCCCCCADJ SUBROUTINE DIAGNOSTICS_FILL OUTPUT =
+C     )
 C
 C     1. make small_f
 C     2. cat seaice_calc_residual.f seaice_oceandrag_coeffs.f \
-C        seaice_bottomdrag_coeffs.f \
+C        seaice_bottomdrag_coeffs.f seaice_calc_stressdiv.f \
 C        seaice_calc_strainrates.f seaice_calc_viscosities.f \
 C        seaice_calc_rhs.f seaice_calc_lhs.f > taf_input.f
 C     3. staf -v1 -forward -toplevel seaice_calc_residual \
@@ -86,7 +94,7 @@
 C
 C     1. make small_f
 C     2. files="seaice_calc_residual.f seaice_oceandrag_coeffs.f \
-C               seaice_bottomdrag_coeffs.f \
+C               seaice_bottomdrag_coeffs.f seaice_calc_stressdiv.f \
 C               seaice_calc_strainrates.f seaice_calc_viscosities.f \
 C               seaice_calc_rhs.f seaice_calc_lhs.f"
 C     3. staf -forward -toplevel seaice_calc_residual \