pkg/autodiff/zero_adj.F

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/zero_adj.F,v 1.4 2008/07/25 16:34:43 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

C     !ROUTINE: ZERO_ADJ_LOC
C     !INTERFACE:
      SUBROUTINE ZERO_ADJ_LOC(
     I             NrIn,FieldFwd,myThid)
C     !DESCRIPTION: \bv
C     *==========================================================*
C     | o zero out a local (no nsx,nsy dims.) adjoint field
C     | ... nothing happens in forward mode
C     | author: Gael Forget
C     *==========================================================*

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
      INTEGER NrIn, myThid
      _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn)

      RETURN
      END


C     !ROUTINE: ZERO_ADJ
C     !INTERFACE:
      SUBROUTINE ZERO_ADJ(
     I             NrIn,FieldFwd,myThid)
C     !DESCRIPTION: \bv
C     *==========================================================*
C     | o zero out a full (incl. nsx,nsy dims.) adjoint field
C     | ... nothing happens in forward mode
C     | author: Gael Forget
C     *==========================================================*

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
      INTEGER NrIn, myThid
      _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)

      RETURN
      END
1	gforget	1.5	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/zero_adj.F,v 1.4 2008/07/25 16:34:43 jmc Exp $
2	jmc	1.2	C $Name: $
3	gforget	1.1
4			#include "CPP_OPTIONS.h"
5
6	gforget	1.3	C !ROUTINE: ZERO_ADJ_LOC
7	gforget	1.1	C !INTERFACE:
8	gforget	1.3	SUBROUTINE ZERO_ADJ_LOC(
9	gforget	1.5	I NrIn,FieldFwd,myThid)
10	gforget	1.1	C !DESCRIPTION: \bv
11			C ==========================================================
12	gforget	1.3	C \| o zero out a local (no nsx,nsy dims.) adjoint field
13	gforget	1.1	C \| ... nothing happens in forward mode
14			C \| author: Gael Forget
15			C ==========================================================
16
17	jmc	1.4	C !USES:
18			IMPLICIT NONE
19			C === Global variables ===
20	gforget	1.1	#include "SIZE.h"
21			#include "EEPARAMS.h"
22			#include "PARAMS.h"
23
24			C == Routine arguments ==
25			C myThid - Thread number for this instance of the routine.
26	jmc	1.4	INTEGER NrIn, myThid
27	gforget	1.3	_RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn)
28	gforget	1.1
29	jmc	1.4	RETURN
30			END
31	gforget	1.1
32
33	gforget	1.3	C !ROUTINE: ZERO_ADJ
34	gforget	1.1	C !INTERFACE:
35	gforget	1.3	SUBROUTINE ZERO_ADJ(
36	gforget	1.5	I NrIn,FieldFwd,myThid)
37	gforget	1.1	C !DESCRIPTION: \bv
38			C ==========================================================
39	gforget	1.3	C \| o zero out a full (incl. nsx,nsy dims.) adjoint field
40	gforget	1.1	C \| ... nothing happens in forward mode
41			C \| author: Gael Forget
42			C ==========================================================
43
44	jmc	1.4	C !USES:
45			IMPLICIT NONE
46			C === Global variables ===
47	gforget	1.1	#include "SIZE.h"
48			#include "EEPARAMS.h"
49			#include "PARAMS.h"
50
51			C == Routine arguments ==
52			C myThid - Thread number for this instance of the routine.
53	jmc	1.4	INTEGER NrIn, myThid
54	gforget	1.3	_RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)
55	gforget	1.1
56	jmc	1.4	RETURN
57			END