/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

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

revision 1.66 by gforget, Fri May 30 21:10:31 2008 UTC revision 1.67 by gforget, Wed Jun 11 18:29:08 2008 UTC
# Line 404  cph Avoid variable aliasing for adjoint Line 404  cph Avoid variable aliasing for adjoint
404  #ifdef GMREDI_WITH_STABLE_ADJOINT  #ifdef GMREDI_WITH_STABLE_ADJOINT
405  cgf zero out adjoint fields to stabilize pkg/gmredi adjoint  cgf zero out adjoint fields to stabilize pkg/gmredi adjoint
406  cgf -> cuts adjoint dependency from slope to state  cgf -> cuts adjoint dependency from slope to state
407        CALL ZERO_ADJ_3D( bi, bj, sigmaX, myThid)        CALL ZERO_ADJ_LOC( Nr, sigmaX, myThid)
408        CALL ZERO_ADJ_3D( bi, bj, sigmaY, myThid)        CALL ZERO_ADJ_LOC( Nr, sigmaY, myThid)
409        CALL ZERO_ADJ_3D( bi, bj, sigmaR, myThid)        CALL ZERO_ADJ_LOC( Nr, sigmaR, myThid)
410  #endif  #endif
411  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
412            ENDIF            ENDIF
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22