cccC ###########################################################
ccc      subroutine active_read_xy_loc(
ccc     I                           active_var_file,
ccc     O                           active_var,
ccc     I                           irec,
ccc     I                           doglobalread,
ccc     I                           lAdInit,
ccc     I                           myOptimIter,
ccc     I                           mythid
ccc     I                         , dummy
ccc     &                         )
ccc      implicit none
ccc#include "EEPARAMS.h"
ccc#include "SIZE.h"
ccc      character*(*) active_var_file
ccc      _RL     active_var(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
ccc      integer irec
ccc      integer myOptimIter
ccc      integer mythid
ccc      logical doglobalread
ccc      logical lAdInit
ccc      _RL     dummy (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
ccc      dummy(1,1,1,1)=active_var(1,1,1,1)
ccc      end subroutine
cccC ###########################################################
ccc      subroutine active_read_xyz_loc(
ccc     I                            active_var_file,
ccc     O                            active_var,
ccc     I                            irec,
ccc     I                            doglobalread,
ccc     I                            lAdInit,
ccc     I                            myOptimIter,
ccc     I                            mythid
ccc     I                         , dummy
ccc     &                           )
ccc#include "EEPARAMS.h"
ccc#include "SIZE.h"
ccc      character*(*) active_var_file
ccc      _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
ccc      integer irec
ccc      integer myOptimIter
ccc      integer mythid
ccc      logical doglobalread
ccc      logical lAdInit
ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)
ccc      end subroutine
cccC ###########################################################
ccc      subroutine active_read_xyz(
ccc     I                            active_var_file,
ccc     O                            active_var,
ccc     I                            irec,
ccc     I                            doglobalread,
ccc     I                            lAdInit,
ccc     I                            myOptimIter,
ccc     I                            mythid
ccc     I                         , dummy
ccc     &                           )
ccc      implicit none
ccc#include "EEPARAMS.h"
ccc#include "SIZE.h"
ccc      character*(*) active_var_file
ccc      _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
ccc      integer irec
ccc      integer myOptimIter
ccc      integer mythid
ccc      logical doglobalread
ccc      logical lAdInit
ccc      _RL     dummy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
ccc      dummy(1,1,1,1,1)=active_var(1,1,1,1,1)
ccc      end subroutine
cccC ###########################################################
ccc      SUBROUTINE EXCH_UV_AGRID_XY_RS( component1,
ccc     +                                component2, 
ccc     +                                withSigns,
ccc     +                                myThid )
ccc      implicit none
ccc#include "SIZE.h"
ccc#include "EEPARAMS.h"
ccc#include "EESUPPORT.h"
ccc#include "EXCH.h"
ccc      _RS component1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
ccc      _RS component2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
ccc      LOGICAL withSigns
ccc      INTEGER myThid
ccc      component1(1,1,1,1)=component2(1,1,1,1)
ccc      component2(1,1,1,1)=component1(1,1,1,1)
ccc      end subroutine
C ###########################################################
      SUBROUTINE EXCH_UV_XY_RS(
     U                       Uphi, Vphi,
     I                       withSigns, myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"

      _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS temp
      LOGICAL withSigns
      INTEGER myThid
      temp=Uphi(1,1,1,1)
      Uphi(1,1,1,1)=Vphi(1,1,1,1)
      Vphi(1,1,1,1)=temp
      end subroutine
C ###########################################################
      SUBROUTINE EXCH_UV_XYZ_RL(
     U                       Uphi, Vphi,
     I                       withSigns, myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"
      _RL Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL temp
      LOGICAL withSigns
      INTEGER myThid
      temp=Uphi(1,1,1,1,1)
      Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)
      Vphi(1,1,1,1,1)=temp
      end subroutine
C ###########################################################
      SUBROUTINE EXCH_UV_XYZ_RS(
     U                       Uphi, Vphi,
     I                       withSigns, myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"
      _RS Uphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RS Vphi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL temp
      LOGICAL withSigns
      INTEGER myThid
      temp=Uphi(1,1,1,1,1)
      Uphi(1,1,1,1,1)=Vphi(1,1,1,1,1)
      Vphi(1,1,1,1,1)=temp
      end subroutine
C ###########################################################
      SUBROUTINE EXCH_XY_RL(
     U                       phi,
     I                       myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"
      _RL phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      INTEGER myThid
      phi(1,1,1,1)=2*phi(1,1,1,1)
      end subroutine
C ###########################################################
      SUBROUTINE EXCH_XYZ_RL(
     U                       phi,
     I                       myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"
      _RL phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      INTEGER myThid
      phi(1,1,1,1,1)=2*phi(1,1,1,1,1)
      end subroutine
C ###########################################################
      SUBROUTINE EXCH_Z_XY_RS(
     U                       phi,
     I                       myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"
      _RS phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      INTEGER myThid
      phi(1,1,1,1)=2*phi(1,1,1,1)
      end subroutine
C ###########################################################
      SUBROUTINE GLOBAL_MAX_R8(
     U                       maxphi,
     I                       myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"
      Real*8 maxPhi
      INTEGER myThid
      maxPhi=2*maxPhi
      end subroutine
C ###########################################################
      SUBROUTINE GLOBAL_SUM_R8(
     U                       sumphi,
     I                       myThid )
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"
      Real*8 sumPhi
      INTEGER myThid
      sumPhi=2*sumPhi
      end subroutine
C ###########################################################