Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by adcroft, Tue Nov 5 19:58:21 2002 UTC | revision 1.7 by adcroft, Thu Nov 7 21:51:15 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 | IF (nonHydrostatic.OR.quasiHydrostatic) THEN |
571 | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
572 | DO j=jMin,jMax | DO j=jMin,jMax |
573 | DO i=iMin,iMax | DO i=iMin,iMax |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |