/[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.6 by gforget, Fri Aug 6 18:41:03 2010 UTC revision 1.7 by jmc, Sun Aug 12 18:46:20 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6    C--  File zero_adj.F:
7    C--   Contents
8    C--   o ZERO_ADJ_1D
9    C--   o ZERO_ADJ_LOC
10    C--   o ZERO_ADJ
11    
12    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
13    CBOP
14  C     !ROUTINE: ZERO_ADJ_1D  C     !ROUTINE: ZERO_ADJ_1D
15  C     !INTERFACE:  C     !INTERFACE:
16        SUBROUTINE ZERO_ADJ_1D(        SUBROUTINE ZERO_ADJ_1D(
17       I             NrIn,FieldFwd,myThid)       I                NrIn, fieldFwd, myThid )
18  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
19  C     *==========================================================*  C     *==========================================================*
20  C     | o zero out a one dimensional adjoint field  C     | o zero out a one dimensional adjoint field
21  C     | ... nothing happens in forward mode  C     | ... nothing happens in forward mode
22  C     | author: Gael Forget  C     | author: Gael Forget
23  C     *==========================================================*  C     *==========================================================*
24    C     \ev
25    
26  C     !USES:  C     !USES:
27        IMPLICIT NONE        IMPLICIT NONE
28  C     === Global variables ===  C     === Global variables ===
29  #include "SIZE.h"  #include "SIZE.h"
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "PARAMS.h"  
31    
32  C     == Routine arguments ==  C     !INPUT/OUTPUT PARAMETERS:
33  C     myThid - Thread number for this instance of the routine.  C     myThid :: my Thread Id number
34        INTEGER NrIn, myThid        INTEGER NrIn, myThid
35        _RL FieldFwd(NrIn)        _RL fieldFwd(NrIn)
36    CEOP
37    
38        RETURN        RETURN
39        END        END
40    
41    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
42    CBOP
43  C     !ROUTINE: ZERO_ADJ_LOC  C     !ROUTINE: ZERO_ADJ_LOC
44  C     !INTERFACE:  C     !INTERFACE:
45        SUBROUTINE ZERO_ADJ_LOC(        SUBROUTINE ZERO_ADJ_LOC(
46       I             NrIn,FieldFwd,myThid)       I                NrIn, fieldFwd, myThid )
47  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
48  C     *==========================================================*  C     *==========================================================*
49  C     | o zero out a local (no nsx,nsy dims.) adjoint field  C     | o zero out a local (no nsx,nsy dims.) adjoint field
50  C     | ... nothing happens in forward mode  C     | ... nothing happens in forward mode
51  C     | author: Gael Forget  C     | author: Gael Forget
52  C     *==========================================================*  C     *==========================================================*
53    C     \ev
54    
55  C     !USES:  C     !USES:
56        IMPLICIT NONE        IMPLICIT NONE
57  C     === Global variables ===  C     === Global variables ===
58  #include "SIZE.h"  #include "SIZE.h"
59  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "PARAMS.h"  
60    
61  C     == Routine arguments ==  C     !INPUT/OUTPUT PARAMETERS:
62  C     myThid - Thread number for this instance of the routine.  C     myThid :: my Thread Id number
63        INTEGER NrIn, myThid        INTEGER NrIn, myThid
64        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn)        _RL fieldFwd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn)
65    CEOP
66    
67        RETURN        RETURN
68        END        END
69    
70    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
71    CBOP
72  C     !ROUTINE: ZERO_ADJ  C     !ROUTINE: ZERO_ADJ
73  C     !INTERFACE:  C     !INTERFACE:
74        SUBROUTINE ZERO_ADJ(        SUBROUTINE ZERO_ADJ(
75       I             NrIn,FieldFwd,myThid)       I                NrIn, fieldFwd, myThid )
76  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
77  C     *==========================================================*  C     *==========================================================*
78  C     | o zero out a full (incl. nsx,nsy dims.) adjoint field  C     | o zero out a full (incl. nsx,nsy dims.) adjoint field
79  C     | ... nothing happens in forward mode  C     | ... nothing happens in forward mode
80  C     | author: Gael Forget  C     | author: Gael Forget
81  C     *==========================================================*  C     *==========================================================*
82    C     \ev
83    
84  C     !USES:  C     !USES:
85        IMPLICIT NONE        IMPLICIT NONE
86  C     === Global variables ===  C     === Global variables ===
87  #include "SIZE.h"  #include "SIZE.h"
88  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "PARAMS.h"  
89    
90  C     == Routine arguments ==  C     !INPUT/OUTPUT PARAMETERS:
91  C     myThid - Thread number for this instance of the routine.  C     myThid :: my Thread Id number
92        INTEGER NrIn, myThid        INTEGER NrIn, myThid
93        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)        _RL fieldFwd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
94    CEOP
95    
96        RETURN        RETURN
97        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22