/[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.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
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22