3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
6 |
|
C !ROUTINE: ADZERO_ADJ_1D |
7 |
|
C !INTERFACE: |
8 |
|
SUBROUTINE ADZERO_ADJ_1D( |
9 |
|
I NrIn, adFieldFwd, myThid) |
10 |
|
C !DESCRIPTION: \bv |
11 |
|
C *==========================================================* |
12 |
|
C | o zero out a 1D adjoint field |
13 |
|
C | author: Gael Forget |
14 |
|
C *==========================================================* |
15 |
|
|
16 |
|
IMPLICIT NONE |
17 |
|
|
18 |
|
C == Global arguments == |
19 |
|
#include "SIZE.h" |
20 |
|
#include "EEPARAMS.h" |
21 |
|
#include "PARAMS.h" |
22 |
|
|
23 |
|
C == Routine arguments == |
24 |
|
C myThid - Thread number for this instance of the routine. |
25 |
|
integer NrIn,myThid |
26 |
|
_RL adFieldFwd(NrIn) |
27 |
|
|
28 |
|
C == Local arguments == |
29 |
|
integer bi,bj,i,j,k |
30 |
|
|
31 |
|
DO k=1,NrIn |
32 |
|
adFieldFwd(k) = 0. _d 0 |
33 |
|
ENDDO |
34 |
|
|
35 |
|
end |
36 |
|
|
37 |
|
|
38 |
C !ROUTINE: ADZERO_ADJ_LOC |
C !ROUTINE: ADZERO_ADJ_LOC |
39 |
C !INTERFACE: |
C !INTERFACE: |
40 |
SUBROUTINE ADZERO_ADJ_LOC( |
SUBROUTINE ADZERO_ADJ_LOC( |