------------------------------------- Doing diff of MAIN.f <<< ------ >>> /nwprod/sorc/gfdl_ocean_eastpac.fd/MAIN.f ------------------------------------- Doing diff of avrtau.f <<< ------ >>> /nwprod/sorc/gfdl_ocean_eastpac.fd/avrtau.f ------------------------------------- Doing diff of ocean.f <<< ------ >>> /nwprod/sorc/gfdl_ocean_eastpac.fd/ocean.f 1685c1685 < WRITE(39) TAUY --- > c------ falk 01-25-02 include write after MIXSSTZ and sharp 2678,2684c2678,2684 < do k=1,nl < do j=1,jm < do i=1,im < sb1(i,j,k)=35. < end do < end do < end do --- > c do k=1,nl > c do j=1,jm > c do i=1,im > c sb1(i,j,k)=35. > c end do > c end do > c end do 3265,3266d3264 < cRMY Reduce WUSURF by 15%: < WUSURF(I,J)=.85*WUSURF(I,J) 3267a3266 > 4727a4727 > if(mod(IINT,12).eq.0) then 4756d4755 < if(mod(IINT,12).eq.0) then