/[MITgcm]/MITgcm/pkg/ctrl/ctrl_map_ini.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_map_ini.F

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

revision 1.19 by heimbach, Thu Jan 5 17:48:01 2006 UTC revision 1.20 by heimbach, Wed Feb 15 03:52:54 2006 UTC
# Line 360  c-- zonal eddy stress : edtaux Line 360  c-- zonal eddy stress : edtaux
360            do k = 1,nr            do k = 1,nr
361              do j = jmin,jmax              do j = jmin,jmax
362                do i = imin,imax                do i = imin,imax
363                  Eddytaux(i,j,k,bi,bj) = Eddytaux(i,j,k,bi,bj) +                  eddyTauX(i,j,k,bi,bj) = eddyTauX(i,j,k,bi,bj) +
364       &                                tmpfld3d(i,j,k,bi,bj)       &            fCori(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj)
365                enddo                enddo
366              enddo              enddo
367            enddo            enddo
# Line 382  c-- meridional eddy stress : edtauy Line 382  c-- meridional eddy stress : edtauy
382            do k = 1,nr            do k = 1,nr
383              do j = jmin,jmax              do j = jmin,jmax
384                do i = imin,imax                do i = imin,imax
385                  Eddytauy(i,j,k,bi,bj) = Eddytauy(i,j,k,bi,bj) +                  eddyTauY(i,j,k,bi,bj) = eddyTauY(i,j,k,bi,bj) +
386       &                                tmpfld3d(i,j,k,bi,bj)       &            fCoriG(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj)
387                enddo                enddo
388              enddo              enddo
389            enddo            enddo
# Line 542  c--   Update the tile edges. Line 542  c--   Update the tile edges.
542  #endif  #endif
543    
544  #if (defined (ALLOW_EDTAUX_CONTROL) && defined (ALLOW_EDTAUY_CONTROL))  #if (defined (ALLOW_EDTAUX_CONTROL) && defined (ALLOW_EDTAUY_CONTROL))
545         CALL EXCH_UV_XYZ_RS(Eddytaux,Eddytauy,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RS(eddyTauX,eddyTauY,.TRUE.,myThid)
546  #elif (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))  #elif (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
547         STOP 'ctrl_map_forcing: need BOTH ALLOW_EDTAU[X,Y]_CONTROL'         STOP 'ctrl_map_forcing: need BOTH ALLOW_EDTAU[X,Y]_CONTROL'
548  #endif  #endif
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22