--- MITgcm/pkg/exch2/exch2_rx2_cube_ad.template 2010/05/06 23:28:44 1.10 +++ MITgcm/pkg/exch2/exch2_rx2_cube_ad.template 2010/05/19 01:25:17 1.11 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/exch2_rx2_cube_ad.template,v 1.10 2010/05/06 23:28:44 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/exch2/exch2_rx2_cube_ad.template,v 1.11 2010/05/19 01:25:17 jmc Exp $ C $Name: $ #include "CPP_EEOPTIONS.h" @@ -11,7 +11,7 @@ SUBROUTINE EXCH2_RX2_CUBE_AD( U array1, array2, I signOption, fieldCode, - I myOLw, myOLe, myOLn, myOLs, myNz, + I myOLw, myOLe, myOLs, myOLn, myNz, I exchWidthX, exchWidthY, I cornerMode, myThid ) @@ -37,13 +37,13 @@ C signOption :: Flag controlling whether vector is signed. C fieldCode :: field code (position on staggered grid) C myOLw,myOLe :: West and East overlap region sizes. -C myOLn,myOLs :: North and South overlap region sizes. +C myOLs,myOLn :: South and North overlap region sizes. C exchWidthX :: Width of data region exchanged in X. C exchWidthY :: Width of data region exchanged in Y. C cornerMode :: halo-corner-region treatment: update/ignore corner region C myThid :: Thread number of this instance of S/R EXCH... - INTEGER myOLw, myOLe, myOLn, myOLs, myNz + INTEGER myOLw, myOLe, myOLs, myOLn, myNz _RX array1(1-myOLw:sNx+myOLe, & 1-myOLs:sNy+myOLn, & myNz, nSx, nSy)