Parent Directory | Revision Log | Revision Graph | Patch
revision 1.19 by afe, Thu Jun 24 20:25:44 2004 UTC | revision 1.20 by afe, Thu Oct 21 21:14:02 2004 UTC | |
---|---|---|
# | Line 456 C o Non-hydrosatic metric terms | Line 456 C o Non-hydrosatic metric terms |
456 | ENDDO | ENDDO |
457 | ENDDO | ENDDO |
458 | ||
459 | ENDIF | |
460 | IF (usingCylindricalGrid) THEN | IF (usingCylindricalGrid) THEN |
461 | CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) | CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
462 | DO j=jMin,jMax | DO j=jMin,jMax |
# | Line 463 C o Non-hydrosatic metric terms | Line 464 C o Non-hydrosatic metric terms |
464 | gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mTFacU*mT(i,j) | gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mTFacU*mT(i,j) |
465 | ENDDO | ENDDO |
466 | ENDDO | ENDDO |
ENDIF | ||
467 | ||
468 | ENDIF | ENDIF |
469 | C-- Set du/dt on boundaries to zero | C-- Set du/dt on boundaries to zero |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |