/[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.41 by heimbach, Fri Apr 18 18:11:43 2008 UTC revision 1.42 by jmc, Tue Mar 16 00:16:50 2010 UTC
# Line 830  c     ELSE Line 830  c     ELSE
830  #endif  #endif
831        ENDIF        ENDIF
832    
833  C--   3.D Coriolis term (horizontal momentum, Eastward component: -f'*w)  C--   3.D Coriolis term (horizontal momentum, Eastward component: -fprime*w)
834        IF ( use3dCoriolis ) THEN        IF ( use3dCoriolis ) THEN
835          CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid)          CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid)
836          DO j=jMin,jMax          DO j=jMin,jMax
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22