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

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

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

revision 1.15 by mlosch, Fri Oct 23 08:10:16 2009 UTC revision 1.16 by gforget, Tue Mar 16 19:21:31 2010 UTC
# Line 196  C     one metric term is missing Line 196  C     one metric term is missing
196         ENDDO         ENDDO
197        ENDDO        ENDDO
198  #endif /* SEAICE_OLD_AND_BAD_DISCRETIZATION */  #endif /* SEAICE_OLD_AND_BAD_DISCRETIZATION */
199    
200    #ifdef ALLOW_AUTODIFF_TAMC
201    #ifdef SEAICE_DYN_STABLE_ADJOINT
202    cgf zero out adjoint fields to stabilize pkg/seaice dyna. adjoint
203          CALL ZERO_ADJ( 1, e11Loc, myThid)
204          CALL ZERO_ADJ( 1, e12Loc, myThid)
205          CALL ZERO_ADJ( 1, e22Loc, myThid)
206    #endif
207    #endif /* ALLOW_AUTODIFF_TAMC */
208    
209  #endif /* SEAICE_ALLOW_DYNAMICS */  #endif /* SEAICE_ALLOW_DYNAMICS */
210  #endif /* SEAICE_CGRID */  #endif /* SEAICE_CGRID */
211        RETURN        RETURN
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22