Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by cnh, Mon May 25 16:17:36 1998 UTC | revision 1.6 by cnh, Mon May 25 16:58:49 1998 UTC | |
---|---|---|
# | Line 164 C defaults to 0.51 but can be | Line 164 C defaults to 0.51 but can be |
164 | pS(I,J,bi,bj) = | pS(I,J,bi,bj) = |
165 | & -aS2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) | & -aS2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
166 | ENDIF | ENDIF |
167 | pC(I,J,bi,bj) = 1. | C pC(I,J,bi,bj) = 1. |
168 | pW(I,J,bi,bj) = 0. | C pW(I,J,bi,bj) = 0. |
169 | pS(I,J,bi,bj) = 0. | C pS(I,J,bi,bj) = 0. |
170 | ENDDO | ENDDO |
171 | ENDDO | ENDDO |
172 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |