/[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.3 by dgoldberg, Mon Mar 23 14:08:18 2015 UTC
# Line 29  Line 29 
29    
30          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
31           DO bi = myBxLo(myThid), myBxHi(myThid)           DO bi = myBxLo(myThid), myBxHi(myThid)
32            DO j=1,sNy            DO j=1-oly,sNy+oly
33             DO i=1,sNx             DO i=1-olx,sNx+olx
34              Au_SI (i,j,bi,bj) = 0. _d 0              Au_SI (i,j,bi,bj) = 0. _d 0
35              Av_SI (i,j,bi,bj) = 0. _d 0              Av_SI (i,j,bi,bj) = 0. _d 0
36                u_dummy (i,j,bi,bj) = u_streamice(i,j,bi,bj)%v
37                v_dummy (i,j,bi,bj) = v_streamice(i,j,bi,bj)%v
38              ubd_SI (i,j,bi,bj)%v = 0. _d 0              ubd_SI (i,j,bi,bj)%v = 0. _d 0
39              vbd_SI (i,j,bi,bj)%v = 0. _d 0              vbd_SI (i,j,bi,bj)%v = 0. _d 0
40             ENDDO             ENDDO
# Line 47  Line 49 
49          CALL openad_STREAMICE_CG_ACTION( myThid,          CALL openad_STREAMICE_CG_ACTION( myThid,
50       O    Au_SI,       O    Au_SI,
51       O    Av_SI,       O    Av_SI,
52       I    U_streamice%v,       I    U_dummy,
53       I    V_streamice%v,       I    V_dummy,
54       I    0, sNx+1, 0, sNy+1 )       I    0, sNx+1, 0, sNy+1 )
55    
56    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22