pkg/autodiff/zero_adj.F

d83a1cba5b Jean*0001 #include "CPP_EEOPTIONS.h"
457f503a3b Gael*0002
d83a1cba5b Jean*0003 C--  File zero_adj.F:
                0004 C--   Contents
                0005 C--   o ZERO_ADJ_1D
                0006 C--   o ZERO_ADJ_LOC
                0007 C--   o ZERO_ADJ
                0008
                0009 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0010 CBOP
c124b12f71 Gael*0011 C     !ROUTINE: ZERO_ADJ_1D
                0012 C     !INTERFACE:
                0013       SUBROUTINE ZERO_ADJ_1D(
d83a1cba5b Jean*0014      I                NrIn, fieldFwd, myThid )
c124b12f71 Gael*0015 C     !DESCRIPTION: \bv
                0016 C     *==========================================================*
                0017 C     | o zero out a one dimensional adjoint field
                0018 C     | ... nothing happens in forward mode
                0019 C     | author: Gael Forget
                0020 C     *==========================================================*
d83a1cba5b Jean*0021 C     \ev
c124b12f71 Gael*0022
                0023 C     !USES:
                0024       IMPLICIT NONE
                0025 C     === Global variables ===
                0026 #include "SIZE.h"
                0027 #include "EEPARAMS.h"
                0028
d83a1cba5b Jean*0029 C     !INPUT/OUTPUT PARAMETERS:
                0030 C     myThid :: my Thread Id number
c124b12f71 Gael*0031       INTEGER NrIn, myThid
d83a1cba5b Jean*0032       _RL fieldFwd(NrIn)
                0033 CEOP
c124b12f71 Gael*0034
                0035       RETURN
                0036       END
                0037
d83a1cba5b Jean*0038 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0039 CBOP
7aad1734d0 Gael*0040 C     !ROUTINE: ZERO_ADJ_LOC
457f503a3b Gael*0041 C     !INTERFACE:
7aad1734d0 Gael*0042       SUBROUTINE ZERO_ADJ_LOC(
d83a1cba5b Jean*0043      I                NrIn, fieldFwd, myThid )
457f503a3b Gael*0044 C     !DESCRIPTION: \bv
                0045 C     *==========================================================*
7aad1734d0 Gael*0046 C     | o zero out a local (no nsx,nsy dims.) adjoint field
457f503a3b Gael*0047 C     | ... nothing happens in forward mode
                0048 C     | author: Gael Forget
                0049 C     *==========================================================*
d83a1cba5b Jean*0050 C     \ev
457f503a3b Gael*0051
208dc9e362 Jean*0052 C     !USES:
                0053       IMPLICIT NONE
                0054 C     === Global variables ===
457f503a3b Gael*0055 #include "SIZE.h"
                0056 #include "EEPARAMS.h"
                0057
d83a1cba5b Jean*0058 C     !INPUT/OUTPUT PARAMETERS:
                0059 C     myThid :: my Thread Id number
208dc9e362 Jean*0060       INTEGER NrIn, myThid
d83a1cba5b Jean*0061       _RL fieldFwd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn)
                0062 CEOP
457f503a3b Gael*0063
208dc9e362 Jean*0064       RETURN
                0065       END
457f503a3b Gael*0066
d83a1cba5b Jean*0067 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0068 CBOP
7aad1734d0 Gael*0069 C     !ROUTINE: ZERO_ADJ
457f503a3b Gael*0070 C     !INTERFACE:
7aad1734d0 Gael*0071       SUBROUTINE ZERO_ADJ(
d83a1cba5b Jean*0072      I                NrIn, fieldFwd, myThid )
457f503a3b Gael*0073 C     !DESCRIPTION: \bv
                0074 C     *==========================================================*
7aad1734d0 Gael*0075 C     | o zero out a full (incl. nsx,nsy dims.) adjoint field
457f503a3b Gael*0076 C     | ... nothing happens in forward mode
                0077 C     | author: Gael Forget
                0078 C     *==========================================================*
d83a1cba5b Jean*0079 C     \ev
457f503a3b Gael*0080
208dc9e362 Jean*0081 C     !USES:
                0082       IMPLICIT NONE
                0083 C     === Global variables ===
457f503a3b Gael*0084 #include "SIZE.h"
                0085 #include "EEPARAMS.h"
                0086
d83a1cba5b Jean*0087 C     !INPUT/OUTPUT PARAMETERS:
                0088 C     myThid :: my Thread Id number
208dc9e362 Jean*0089       INTEGER NrIn, myThid
d83a1cba5b Jean*0090       _RL fieldFwd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrIn,nSx,nSy)
                0091 CEOP
457f503a3b Gael*0092
208dc9e362 Jean*0093       RETURN
                0094       END