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

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

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

revision 1.4 by jmc, Fri Jul 25 16:34:43 2008 UTC revision 1.5 by gforget, Tue Apr 13 04:35:53 2010 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  C     !ROUTINE: ZERO_ADJ_LOC  C     !ROUTINE: ZERO_ADJ_LOC
7  C     !INTERFACE:  C     !INTERFACE:
8        SUBROUTINE ZERO_ADJ_LOC(        SUBROUTINE ZERO_ADJ_LOC(
9       I             NrIn,myThid,FieldFwd)       I             NrIn,FieldFwd,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 33  C     myThid - Thread number for this in Line 33  C     myThid - Thread number for this in
33  C     !ROUTINE: ZERO_ADJ  C     !ROUTINE: ZERO_ADJ
34  C     !INTERFACE:  C     !INTERFACE:
35        SUBROUTINE ZERO_ADJ(        SUBROUTINE ZERO_ADJ(
36       I             NrIn,myThid,FieldFwd)       I             NrIn,FieldFwd,myThid)
37  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
38  C     *==========================================================*  C     *==========================================================*
39  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