Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by adcroft, Tue May 29 14:01:38 2001 UTC | revision 1.8 by jmc, Thu Mar 7 14:27:47 2002 UTC | |
---|---|---|
# | Line 50 C I, J - Loop counters | Line 50 C I, J - Loop counters |
50 | DO j=jMin,jMax | DO j=jMin,jMax |
51 | DO i=iMin,iMax | DO i=iMin,iMax |
52 | df(i,j) = df(i,j) - _rA(i,j,bi,bj) * | df(i,j) = df(i,j) - _rA(i,j,bi,bj) * |
53 | & KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) * | & KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * drF(1) * |
54 | & SurfaceTendencyS(i,j,bi,bj) | & SurfaceTendencyS(i,j,bi,bj) |
55 | ENDDO | ENDDO |
56 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |