/[MITgcm]/MITgcm/pkg/autodiff/adzero_adj.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/adzero_adj.F

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

revision 1.4 by heimbach, Wed Jul 23 20:26:12 2008 UTC revision 1.5 by gforget, Mon Feb 15 20:03:56 2010 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  C     !ROUTINE: ADZERO_ADJ_LOC  C     !ROUTINE: ADZERO_ADJ_LOC
7  C     !INTERFACE:  C     !INTERFACE:
8        SUBROUTINE ADZERO_ADJ_LOC(        SUBROUTINE ADZERO_ADJ_LOC(
9       I             NrIn,myThid,adFieldFwd)       I             NrIn, adFieldFwd, myThid)
10  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
11  C     *==========================================================*  C     *==========================================================*
12  C     | o zero out a local (no nsx,nsy dims.) adjoint field  C     | o zero out a local (no nsx,nsy dims.) adjoint field
# Line 42  C     == Local arguments == Line 42  C     == Local arguments ==
42  C     !ROUTINE: ADZERO_ADJ  C     !ROUTINE: ADZERO_ADJ
43  C     !INTERFACE:  C     !INTERFACE:
44        SUBROUTINE ADZERO_ADJ(        SUBROUTINE ADZERO_ADJ(
45       I             NrIn,myThid,adFieldFwd)       I             NrIn, adFieldFwd, myThid)
46  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
47  C     *==========================================================*  C     *==========================================================*
48  C     | o zero out a full (incl. nsx,nsy dims.) adjoint field  C     | o zero out a full (incl. nsx,nsy dims.) adjoint field
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22