/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_fluxform.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_fluxform.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22