Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by adcroft, Tue Nov 5 18:49:02 2002 UTC | revision 1.6 by adcroft, Tue Nov 5 19:58:21 2002 UTC | |
---|---|---|
# | Line 567 C Note. As coded here, coriolis will | Line 567 C Note. As coded here, coriolis will |
567 | ENDDO | ENDDO |
568 | ENDDO | ENDDO |
569 | #endif /* INCLUDE_CD_CODE */ | #endif /* INCLUDE_CD_CODE */ |
570 | IF (nonHydrostatic) THEN | |
571 | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) | |
572 | DO j=jMin,jMax | |
573 | DO i=iMin,iMax | |
574 | gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) | |
575 | ENDDO | |
576 | ENDDO | |
577 | ENDIF | |
578 | ||
579 | RETURN | RETURN |
580 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |