--- MITgcm/model/src/calc_phi_hyd.F 1998/11/06 22:44:44 1.6 +++ MITgcm/model/src/calc_phi_hyd.F 2000/06/09 02:45:04 1.7 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.6 1998/11/06 22:44:44 cnh Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.7 2000/06/09 02:45:04 heimbach Exp $ #include "CPP_OPTIONS.h" @@ -51,6 +51,9 @@ C points) DO j=jMin,jMax DO i=iMin,iMax +#ifdef ALLOW_AUTODIFF_TAMC +CADJ GENERAL +#endif phiHyd(i,j,K)=phiHyd(i,j,Km1)-rhoConst*halfLayer & *0.5 _d 0*( drF(Km1)+drF(K) )*gamma & *0.5 _d 0*( buoyKM1(i,j)+buoyKP1(i,j) )