/[MITgcm]/MITgcm/model/src/calc_gw.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gw.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.31 by jmc, Wed Jul 12 12:27:38 2006 UTC revision 1.32 by jmc, Thu Jul 13 03:01:21 2006 UTC
# Line 382  C--          prepare for next level (k+1 Line 382  C--          prepare for next level (k+1
382             ENDDO             ENDDO
383            ENDDO            ENDDO
384          ENDIF          ENDIF
385          IF ( useCoriolis ) THEN          IF ( use3dCoriolis ) THEN
386            CALL MOM_W_CORIOLIS_NH(            CALL MOM_W_CORIOLIS_NH(
387       I               bi,bj,k,       I               bi,bj,k,
388       I               uVel, vVel,       I               uVel, vVel,
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22