155 |
enddo |
enddo |
156 |
do j = jmin,jmax |
do j = jmin,jmax |
157 |
do i = imin+1,imax |
do i = imin+1,imax |
158 |
#if (defined (ALLOW_BULKFORMULAE) || defined (USE_EXF_INTERPOLATION)) |
#if ( ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) ) \ |
159 |
|
|| defined (USE_EXF_INTERPOLATION) ) |
160 |
c Shift wind stresses calculated at C-points to W/S points |
c Shift wind stresses calculated at C-points to W/S points |
161 |
fu(i,j,bi,bj) = exf_outscal_ustress* |
fu(i,j,bi,bj) = exf_outscal_ustress* |
162 |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))/2.* |
& (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))/2.* |
190 |
enddo |
enddo |
191 |
do j = jmin+1,jmax |
do j = jmin+1,jmax |
192 |
do i = imin,imax |
do i = imin,imax |
193 |
#if (defined (ALLOW_BULKFORMULAE) || defined (USE_EXF_INTERPOLATION)) |
#if ( ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) ) \ |
194 |
|
|| defined (USE_EXF_INTERPOLATION) ) |
195 |
c Shift wind stresses calculated at C-points to W/S points |
c Shift wind stresses calculated at C-points to W/S points |
196 |
fv(i,j,bi,bj) = exf_outscal_vstress* |
fv(i,j,bi,bj) = exf_outscal_vstress* |
197 |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))/2.* |
& (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))/2.* |