--- MITgcm/model/src/calc_gw.F 2006/07/12 12:27:38 1.31 +++ MITgcm/model/src/calc_gw.F 2006/07/13 03:01:21 1.32 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_gw.F,v 1.31 2006/07/12 12:27:38 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_gw.F,v 1.32 2006/07/13 03:01:21 jmc Exp $ C !DESCRIPTION: \bv C $Name: $ @@ -382,7 +382,7 @@ ENDDO ENDDO ENDIF - IF ( useCoriolis ) THEN + IF ( use3dCoriolis ) THEN CALL MOM_W_CORIOLIS_NH( I bi,bj,k, I uVel, vVel,