C     $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/aim/Attic/aim_aim2dyn_exchanges.F,v 1.1 2001/05/29 19:28:53 cnh Exp $
C     $Name:  $

#include "AIM_OPTIONS.h"

CStartOfInterface
      SUBROUTINE AIM_AIM2DYN_EXCHANGES(
     I           myCurrentTime,myThid)
C     /==========================================================\
C     | S/R AIM_AIM2DYN_EXCHANGES                                |
C     | o Do overlap exchanges for AIM related quantities.       |
C     |   AIM does not compute into overlaps so exchanges        |
C     |   are needed for AIM quantities.                         |
C     \==========================================================/
      IMPLICIT NONE

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DYNVARS.h"

#ifdef ALLOW_AIM
#include "AIM2DYN.h"
#endif /* ALLOW_AIM */

C     == Routine arguments ==
      _RL myCurrentTime
      INTEGER myThid
CEndOfInterface

C     == Local variables ==
C     I,J,K - Loop counters
C     bi,bj
      INTEGER I,J,K, bi,bj 

#ifdef ALLOW_AIM

      _EXCH_XY_R8( aim_drag, myThid )
      _EXCH_XYZ_R8( gT, myThid )
      _EXCH_XYZ_R8( gS, myThid )
      _EXCH_XYZ_R8( gTNM1, myThid )
      _EXCH_XYZ_R8( gSNM1, myThid )
      DO bj=myByLo(myThid),myByHi(myThid)
       DO bi=myBxLo(myThid),myBxHi(myThid)
        DO K=1,Nr
         DO J=1-OLy,sNy+OLy
          DO I=1-OLx,sNx+OLx
           gT(i,j,k,bi,bj) = 
     &      maskC(i,j,k,bi,bj)*gT(i,j,k,bi,bj)
           gTNM1(i,j,k,bi,bj) = 
     &      maskC(i,j,k,bi,bj)*gTNM1(i,j,k,bi,bj)
           gS(i,j,k,bi,bj) = 
     &      maskC(i,j,k,bi,bj)*gS(i,j,k,bi,bj)
           gSNM1(i,j,k,bi,bj) = 
     &      maskC(i,j,k,bi,bj)*gSNM1(i,j,k,bi,bj)
          ENDDO
         ENDDO
        ENDDO
       ENDDO
      ENDDO

#endif /* ALLOW_AIM */

      RETURN
      END