95 |
|
|
96 |
DO j=1-1,sNy+1 |
DO j=1-1,sNy+1 |
97 |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
98 |
cph IF ((Gj .ge. 1) .and. (Gj .le. Ny)) THEN |
IF ((Gj .ge. 1) .and. (Gj .le. Ny)) THEN |
99 |
DO i=1-1,sNx+1 |
DO i=1-1,sNx+1 |
100 |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
Gi = (myXGlobalLo-1)+(bi-1)*sNx+i |
101 |
|
|
125 |
CADJ & = comlev1_stream_ij, key = ikey_1 |
CADJ & = comlev1_stream_ij, key = ikey_1 |
126 |
#endif |
#endif |
127 |
|
|
128 |
cph IF ((Gi .ge. 1) .and. (Gi .le. Nx) .and. |
IF ((Gi .ge. 1) .and. (Gi .le. Nx) .and. |
129 |
IF ((STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or. |
& (STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or. |
130 |
& STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN |
& STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN |
131 |
n_flux_1 = 0. _d 0 |
n_flux_1 = 0. _d 0 |
132 |
href = 0. _d 0 |
href = 0. _d 0 |
261 |
|
|
262 |
ENDIF |
ENDIF |
263 |
ENDDO |
ENDDO |
264 |
cph ENDIF |
ENDIF |
265 |
ENDDO |
ENDDO |
266 |
c |
c |
267 |
ENDDO |
ENDDO |