--- MITgcm/pkg/seaice/seaice_calc_strainrates.F 2013/02/28 17:25:41 1.20 +++ MITgcm/pkg/seaice/seaice_calc_strainrates.F 2017/05/26 09:08:32 1.22 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_calc_strainrates.F,v 1.20 2013/02/28 17:25:41 mlosch Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_calc_strainrates.F,v 1.22 2017/05/26 09:08:32 mlosch Exp $ C $Name: $ #include "SEAICE_OPTIONS.h" @@ -7,6 +7,9 @@ #else # define OBCS_UVICE_OLD #endif +#ifdef ALLOW_AUTODIFF +# include "AUTODIFF_OPTIONS.h" +#endif CBOP C !ROUTINE: SEAICE_CALC_STRAINRATES @@ -162,7 +165,6 @@ c$$$ & - hFacU * k2AtZ(i,j,bi,bj) * uave(i,j) ENDDO ENDDO - ENDDO ENDDO