Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by cnh, Thu May 28 15:09:29 1998 UTC | revision 1.6 by cnh, Sat May 30 02:10:16 1998 UTC | |
---|---|---|
# | Line 149 C Diffusive component of vertical fl | Line 149 C Diffusive component of vertical fl |
149 | DO j=jMin,jMax | DO j=jMin,jMax |
150 | DO i=iMin,iMax | DO i=iMin,iMax |
151 | df(i,j) = | df(i,j) = |
152 | & -diffKzS*zA(i,j,bi,bj)*rdzC(k) | & -diffKzS*_zA(i,j,bi,bj)*rdzC(k) |
153 | & *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj)) | & *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj)) |
154 | ENDDO | ENDDO |
155 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |