diff --git a/hycom/hycom_ALL/hycom_2.2.72_ALL/bin/hycom_profile_hybgen.f b/hycom/hycom_ALL/hycom_2.2.72_ALL/bin/hycom_profile_hybgen.f index 40d900b5..d7d3e4ab 100644 --- a/hycom/hycom_ALL/hycom_2.2.72_ALL/bin/hycom_profile_hybgen.f +++ b/hycom/hycom_ALL/hycom_2.2.72_ALL/bin/hycom_profile_hybgen.f @@ -305,7 +305,6 @@ subroutine hybgen(temp,saln,th3d,dp,theta,kdm, real, parameter :: hybrlx = 1.0/8.0 !1.0/no. baroclinic time steps c logical mxlkta,thermo -cTill integer i,j,kk,n, lp,nstep, i0,j0,itest,jtest integer i,j,kk,n, lp,nstep, i0,j0,itest,jtest integer klist(1,1) real epsil,onem,tencm,onemm,qonem,thbase