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 |
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 |
|
|