/[MITgcm]/MITgcm/pkg/exf/exf_mapfields.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_mapfields.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.17 by jmc, Mon Apr 16 23:27:21 2007 UTC revision 1.18 by jmc, Tue Apr 17 18:53:32 2007 UTC
# Line 155  CADJ STORE ustress(:,:,bi,bj) = comlev1_ Line 155  CADJ STORE ustress(:,:,bi,bj) = comlev1_
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.*
# Line 189  CADJ STORE vstress(:,:,bi,bj) = comlev1_ Line 190  CADJ STORE vstress(:,:,bi,bj) = comlev1_
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.*
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22