/[MITgcm]/MITgcm/tools/OAD_support/ad_template.streamice_get_vel_resid_err_oad.F
ViewVC logotype

Diff of /MITgcm/tools/OAD_support/ad_template.streamice_get_vel_resid_err_oad.F

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

revision 1.1 by dgoldberg, Mon Mar 2 18:16:02 2015 UTC revision 1.2 by dgoldberg, Fri Mar 6 20:16:05 2015 UTC
# Line 6  Line 6 
6        use OAD_rev        use OAD_rev
7    
8            
9  C  !$TEMPLATE_PRAGMA_DECLARATIONS
 C     **** Statements ****  
 C  
10    
11          integer testTape
12        !logical isTape        !logical isTape
13        !type(modeType) :: our_orig_mode        !type(modeType) :: our_orig_mode
14    
15  !      if (our_rev_mode%plain .or. our_rev_mode%tape) then        if (our_rev_mode%plain .or. our_rev_mode%tape) then
16        if (our_rev_mode%plain) then  !      if (our_rev_mode%plain) then
17    
18  !       if (our_rev_mode%tape) then         if (our_rev_mode%tape) then
19  !        isTape=.true.          testTape=1
20  !        our_rev_mode%plain=.true.          our_rev_mode%plain=.true.
21  !        our_rev_mode%tape=.false.          our_rev_mode%tape=.false.
22  !        our_rev_mode%adjoint=.false.          our_rev_mode%adjoint=.false.
23  !      endif         else
24            testTape=0
25           endif
26                            
27    
28        err_max = 0. _d 0        err_max = 0. _d 0
# Line 46  C Line 47  C
47          CALL openad_STREAMICE_CG_ACTION( myThid,          CALL openad_STREAMICE_CG_ACTION( myThid,
48       O    Au_SI,       O    Au_SI,
49       O    Av_SI,       O    Av_SI,
50       I    U_streamice,       I    U_streamice%v,
51       I    V_streamice,       I    V_streamice%v,
52       I    0, sNx+1, 0, sNy+1 )       I    0, sNx+1, 0, sNy+1 )
53    
54    
# Line 77  C Line 78  C
78    
79          CALL GLOBAL_MAX_R8 (err_max, myThid)          CALL GLOBAL_MAX_R8 (err_max, myThid)
80    
81  !       if (isTape) then         if (testTape.eq.1) then
82  !        our_rev_mode%plain=.false.          our_rev_mode%plain=.false.
83  !        our_rev_mode%tape=.true.          our_rev_mode%tape=.true.
84  !        our_rev_mode%adjoint=.false.          our_rev_mode%adjoint=.false.
85  !       endif         endif
86    
87        end if        end if
88    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22