/[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.2 by dgoldberg, Fri Mar 6 20:16:05 2015 UTC revision 1.4 by dgoldberg, Wed Mar 25 17:35:29 2015 UTC
# Line 12  Line 12 
12        !logical isTape        !logical isTape
13        !type(modeType) :: our_orig_mode        !type(modeType) :: our_orig_mode
14    
15    #if (defined (ALLOW_STREAMICE_OAD_FP))
16    
17        if (our_rev_mode%plain .or. our_rev_mode%tape) then        if (our_rev_mode%plain .or. our_rev_mode%tape) then
18  !      if (our_rev_mode%plain) then  !      if (our_rev_mode%plain) then
19    
# Line 29  Line 31 
31    
32          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
33           DO bi = myBxLo(myThid), myBxHi(myThid)           DO bi = myBxLo(myThid), myBxHi(myThid)
34            DO j=1,sNy            DO j=1-oly,sNy+oly
35             DO i=1,sNx             DO i=1-olx,sNx+olx
36              Au_SI (i,j,bi,bj) = 0. _d 0              Au_SI (i,j,bi,bj) = 0. _d 0
37              Av_SI (i,j,bi,bj) = 0. _d 0              Av_SI (i,j,bi,bj) = 0. _d 0
38                u_dummy (i,j,bi,bj) = u_streamice(i,j,bi,bj)%v
39                v_dummy (i,j,bi,bj) = v_streamice(i,j,bi,bj)%v
40              ubd_SI (i,j,bi,bj)%v = 0. _d 0              ubd_SI (i,j,bi,bj)%v = 0. _d 0
41              vbd_SI (i,j,bi,bj)%v = 0. _d 0              vbd_SI (i,j,bi,bj)%v = 0. _d 0
42             ENDDO             ENDDO
# Line 47  Line 51 
51          CALL openad_STREAMICE_CG_ACTION( myThid,          CALL openad_STREAMICE_CG_ACTION( myThid,
52       O    Au_SI,       O    Au_SI,
53       O    Av_SI,       O    Av_SI,
54       I    U_streamice%v,       I    U_dummy,
55       I    V_streamice%v,       I    V_dummy,
56       I    0, sNx+1, 0, sNy+1 )       I    0, sNx+1, 0, sNy+1 )
57    
58    
# Line 87  Line 91 
91        end if        end if
92    
93    
94    #endif
95        end subroutine template        end subroutine template
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22