/[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.2 by jmc, Mon Oct 8 23:50:54 2007 UTC revision 1.3 by gforget, Wed Jun 11 18:29:11 2008 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  C     !ROUTINE: ZERO_ADJ_3D  C     !ROUTINE: ZERO_ADJ_LOC
7  C     !INTERFACE:  C     !INTERFACE:
8        SUBROUTINE ZERO_ADJ_3D(        SUBROUTINE ZERO_ADJ_LOC(
9       I             bi, bj, fieldFwd,       I             NrIn,myThid,FieldFwd)
      I             myThid)  
10  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
11  C     *==========================================================*  C     *==========================================================*
12  C     | o zero out a 3D adjoint field  C     | o zero out a local (no nsx,nsy dims.) adjoint field
13  C     | ... nothing happens in forward mode  C     | ... nothing happens in forward mode
14  C     | author: Gael Forget  C     | author: Gael Forget
15  C     *==========================================================*  C     *==========================================================*
# Line 22  C     *================================= Line 21  C     *=================================
21  C     == Routine arguments ==  C     == Routine arguments ==
22  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
23        integer myThid,bi,bj,i,j,k        integer myThid,bi,bj,i,j,k
24        _RL fieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn)
25    
26        end        end
27    
28    
29  C     !ROUTINE: ZERO_ADJ_2D  C     !ROUTINE: ZERO_ADJ
30  C     !INTERFACE:  C     !INTERFACE:
31        SUBROUTINE ZERO_ADJ_2D(        SUBROUTINE ZERO_ADJ(
32       I             bi, bj, fieldFwd,       I             NrIn,myThid,FieldFwd)
      I             myThid)  
33  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
34  C     *==========================================================*  C     *==========================================================*
35  C     | o zero out a 2D adjoint field  C     | o zero out a full (incl. nsx,nsy dims.) adjoint field
36  C     | ... nothing happens in forward mode  C     | ... nothing happens in forward mode
37  C     | author: Gael Forget  C     | author: Gael Forget
38  C     *==========================================================*  C     *==========================================================*
# Line 45  C     *================================= Line 43  C     *=================================
43    
44  C     == Routine arguments ==  C     == Routine arguments ==
45  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
46        integer myThid,bi,bj,i,j        integer myThid,bi,bj,i,j,k
47        _RL fieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)
48    
49        end        end
50    
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22