/[MITgcm]/MITgcm/pkg/autodiff/adzero_adj.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/adzero_adj.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by gforget, Mon Feb 15 20:03:56 2010 UTC revision 1.6 by gforget, Fri Aug 6 18:41:03 2010 UTC
# Line 3  C $Name$ Line 3  C $Name$
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(
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22