/[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.8 by heimbach, Thu Nov 6 22:11:03 2003 UTC revision 1.9 by dimitri, Wed Mar 17 23:08:09 2004 UTC
# Line 142  CADJ STORE ustress(:,:,bi,bj) = comlev1_ Line 142  CADJ STORE ustress(:,:,bi,bj) = comlev1_
142            enddo            enddo
143            do j = jmin,jmax            do j = jmin,jmax
144              do i = imin+1,imax              do i = imin+1,imax
145  #if (defined (ALLOW_ATM_TEMP) || defined (ALLOW_ATM_WIND))  #if (defined (ALLOW_BULKFORMULAE) || defined (USE_EXF_INTERPOLATION))
146  c     Shift wind stresses calculated at C-points to W/S points  c     Shift wind stresses calculated at C-points to W/S points
147                fu(i,j,bi,bj) = exf_outscal_ustress*                fu(i,j,bi,bj) = exf_outscal_ustress*
148       &              (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 176  CADJ STORE vstress(:,:,bi,bj) = comlev1_ Line 176  CADJ STORE vstress(:,:,bi,bj) = comlev1_
176            enddo            enddo
177            do j = jmin+1,jmax            do j = jmin+1,jmax
178              do i = imin,imax              do i = imin,imax
179  #if (defined (ALLOW_ATM_TEMP) || defined (ALLOW_ATM_WIND))  #if (defined (ALLOW_BULKFORMULAE) || defined (USE_EXF_INTERPOLATION))
180  c     Shift wind stresses calculated at C-points to W/S points  c     Shift wind stresses calculated at C-points to W/S points
181                fv(i,j,bi,bj) = exf_outscal_vstress*                fv(i,j,bi,bj) = exf_outscal_vstress*
182       &              (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.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22