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

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

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

revision 1.5 by gforget, Tue Apr 13 04:35:53 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: ZERO_ADJ_1D
7    C     !INTERFACE:
8          SUBROUTINE ZERO_ADJ_1D(
9         I             NrIn,FieldFwd,myThid)
10    C     !DESCRIPTION: \bv
11    C     *==========================================================*
12    C     | o zero out a one dimensional adjoint field
13    C     | ... nothing happens in forward mode
14    C     | author: Gael Forget
15    C     *==========================================================*
16    
17    C     !USES:
18          IMPLICIT NONE
19    C     === Global variables ===
20    #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          INTEGER NrIn, myThid
27          _RL FieldFwd(NrIn)
28    
29          RETURN
30          END
31    
32    
33  C     !ROUTINE: ZERO_ADJ_LOC  C     !ROUTINE: ZERO_ADJ_LOC
34  C     !INTERFACE:  C     !INTERFACE:
35        SUBROUTINE ZERO_ADJ_LOC(        SUBROUTINE ZERO_ADJ_LOC(
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22