--- MITgcm/model/src/dynamics.F 2014/04/04 20:54:11 1.170 +++ MITgcm/model/src/dynamics.F 2014/08/07 17:32:03 1.171 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.170 2014/04/04 20:54:11 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.171 2014/08/07 17:32:03 jmc Exp $ C $Name: $ #include "PACKAGES_CONFIG.h" @@ -534,21 +534,12 @@ #endif /* ALLOW_AUTODIFF_TAMC */ C-- Integrate hydrostatic balance for phiHyd with BC of phiHyd(z=0)=0 - IF ( implicitIntGravWave ) THEN - CALL CALC_PHI_HYD( - I bi,bj,iMin,iMax,jMin,jMax,k, - I gT, gS, - U phiHydF, - O phiHydC, dPhiHydX, dPhiHydY, - I myTime, myIter, myThid ) - ELSE - CALL CALC_PHI_HYD( + CALL CALC_PHI_HYD( I bi,bj,iMin,iMax,jMin,jMax,k, I theta, salt, U phiHydF, O phiHydC, dPhiHydX, dPhiHydY, I myTime, myIter, myThid ) - ENDIF #ifdef ALLOW_DIAGNOSTICS IF ( dPhiHydDiagIsOn ) THEN tmpFac = -1. _d 0