--- MITgcm/pkg/exf/exf_mapfields.F 2003/11/06 22:11:03 1.8 +++ MITgcm/pkg/exf/exf_mapfields.F 2004/03/17 23:08:09 1.9 @@ -1,4 +1,4 @@ -c $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exf/exf_mapfields.F,v 1.8 2003/11/06 22:11:03 heimbach Exp $ +c $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exf/exf_mapfields.F,v 1.9 2004/03/17 23:08:09 dimitri Exp $ #include "EXF_OPTIONS.h" @@ -142,7 +142,7 @@ enddo do j = jmin,jmax do i = imin+1,imax -#if (defined (ALLOW_ATM_TEMP) || defined (ALLOW_ATM_WIND)) +#if (defined (ALLOW_BULKFORMULAE) || defined (USE_EXF_INTERPOLATION)) c Shift wind stresses calculated at C-points to W/S points fu(i,j,bi,bj) = exf_outscal_ustress* & (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))/2.* @@ -176,7 +176,7 @@ enddo do j = jmin+1,jmax do i = imin,imax -#if (defined (ALLOW_ATM_TEMP) || defined (ALLOW_ATM_WIND)) +#if (defined (ALLOW_BULKFORMULAE) || defined (USE_EXF_INTERPOLATION)) c Shift wind stresses calculated at C-points to W/S points fv(i,j,bi,bj) = exf_outscal_vstress* & (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))/2.*