/[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.3 by gforget, Wed Jun 11 18:29:11 2008 UTC revision 1.4 by jmc, Fri Jul 25 16:34:43 2008 UTC
# Line 14  C     | ... nothing happens in forward m Line 14  C     | ... nothing happens in forward m
14  C     | author: Gael Forget  C     | author: Gael Forget
15  C     *==========================================================*  C     *==========================================================*
16    
17    C     !USES:
18          IMPLICIT NONE
19    C     === Global variables ===
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    
24  C     == Routine arguments ==  C     == Routine arguments ==
25  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
26        integer myThid,bi,bj,i,j,k        INTEGER NrIn, myThid
27        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn)        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn)
28    
29        end        RETURN
30          END
31    
32    
33  C     !ROUTINE: ZERO_ADJ  C     !ROUTINE: ZERO_ADJ
# Line 37  C     | ... nothing happens in forward m Line 41  C     | ... nothing happens in forward m
41  C     | author: Gael Forget  C     | author: Gael Forget
42  C     *==========================================================*  C     *==========================================================*
43    
44    C     !USES:
45          IMPLICIT NONE
46    C     === Global variables ===
47  #include "SIZE.h"  #include "SIZE.h"
48  #include "EEPARAMS.h"  #include "EEPARAMS.h"
49  #include "PARAMS.h"  #include "PARAMS.h"
50    
51  C     == Routine arguments ==  C     == Routine arguments ==
52  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
53        integer myThid,bi,bj,i,j,k        INTEGER NrIn, myThid
54        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)        _RL FieldFwd(1-Olx:sNx+Olx,1-Oly:sNy+Oly,NrIn,nSx,nSy)
55    
56        end        RETURN
57          END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22