6 |
C !ROUTINE: ZERO_ADJ_LOC |
C !ROUTINE: ZERO_ADJ_LOC |
7 |
C !INTERFACE: |
C !INTERFACE: |
8 |
SUBROUTINE ZERO_ADJ_LOC( |
SUBROUTINE ZERO_ADJ_LOC( |
9 |
I NrIn,myThid,FieldFwd) |
I NrIn,FieldFwd,myThid) |
10 |
C !DESCRIPTION: \bv |
C !DESCRIPTION: \bv |
11 |
C *==========================================================* |
C *==========================================================* |
12 |
C | o zero out a local (no nsx,nsy dims.) adjoint field |
C | o zero out a local (no nsx,nsy dims.) adjoint field |
33 |
C !ROUTINE: ZERO_ADJ |
C !ROUTINE: ZERO_ADJ |
34 |
C !INTERFACE: |
C !INTERFACE: |
35 |
SUBROUTINE ZERO_ADJ( |
SUBROUTINE ZERO_ADJ( |
36 |
I NrIn,myThid,FieldFwd) |
I NrIn,FieldFwd,myThid) |
37 |
C !DESCRIPTION: \bv |
C !DESCRIPTION: \bv |
38 |
C *==========================================================* |
C *==========================================================* |
39 |
C | o zero out a full (incl. nsx,nsy dims.) adjoint field |
C | o zero out a full (incl. nsx,nsy dims.) adjoint field |