202 |
C boundary condition. |
C boundary condition. |
203 |
DO j=jMin,jMax |
DO j=jMin,jMax |
204 |
DO i=iMin,iMax |
DO i=iMin,iMax |
205 |
df(i,j) = _zA(i,j,bi,bj)*( |
df(i,j) = _rA(i,j,bi,bj)*( |
206 |
& -KapGM(i,j)*K13(i,j,k)*dSdx(i,j) |
& -KapGM(i,j)*K13(i,j,k)*dSdx(i,j) |
207 |
& -KapGM(i,j)*K23(i,j,k)*dSdy(i,j) |
& -KapGM(i,j)*K23(i,j,k)*dSdy(i,j) |
208 |
& ) |
& ) |
213 |
DO i=iMin,iMax |
DO i=iMin,iMax |
214 |
df(i,j) = df(i,j) + _rA(i,j,bi,bj)*( |
df(i,j) = df(i,j) + _rA(i,j,bi,bj)*( |
215 |
& -KappaRS(i,j,k)*recip_drC(k) |
& -KappaRS(i,j,k)*recip_drC(k) |
216 |
& *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj)) |
& *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj))*rkFac |
217 |
& ) |
& ) |
218 |
ENDDO |
ENDDO |
219 |
ENDDO |
ENDDO |