Parent Directory | Revision Log | Revision Graph | Patch
revision 1.14 by cnh, Wed Sep 9 15:04:44 1998 UTC | revision 1.15 by cnh, Tue Sep 29 18:50:57 1998 UTC | |
---|---|---|
# | Line 67 C Step forward salt | Line 67 C Step forward salt |
67 | DO j=jMin,jMax | DO j=jMin,jMax |
68 | DO i=iMin,iMax | DO i=iMin,iMax |
69 | gSNm1(i,j,k,bi,bj)=salt(i,j,k,bi,bj) | gSNm1(i,j,k,bi,bj)=salt(i,j,k,bi,bj) |
70 | C & +deltaTtracer*(ab15*gS(i,j,k,bi,bj)+ab05*gSNm1(i,j,k,bi,bj)) | & +deltaTtracer*(ab15*gS(i,j,k,bi,bj)+ab05*gSNm1(i,j,k,bi,bj)) |
71 | ENDDO | ENDDO |
72 | ENDDO | ENDDO |
73 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |