#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: CPL_SAVEFLUX
C     !INTERFACE:
      SUBROUTINE CPL_SAVEFLUX( myTime, myIter, myThid )

C     !DESCRIPTION: \bv
C     *==================================================================
C     | SUBROUTINE cpl_mpmice
C     | o Save surface fluxes prior to seaice
C     |   this is a temporary routine to get going
C     |   until seaice_obcs is untangled from seaice
C     *==================================================================
C     \ev

C     !USES:
      IMPLICIT NONE
C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#ifdef ALLOW_EXF
# include "EXF_OPTIONS.h"
# include "EXF_FIELDS.h"
#endif
#include "FFIELDS.h"

      LOGICAL  DIFFERENT_MULTIPLE
      EXTERNAL DIFFERENT_MULTIPLE

C     !LOCAL VARIABLES:
C     mytime - time counter for this thread (seconds)
C     myiter - iteration counter for this thread
C     mythid - thread number for this instance of the routine.
      _RL     mytime
      INTEGER myiter, mythid 
CEOP

#ifdef ALLOW_CPL_MPMICE

      COMMON /FFIELDS_tmp/ fu_tmp, fv_tmp, Qnet_tmp, Qsw_tmp, EmPmR_tmp
      _RS  fu_tmp       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  fv_tmp       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  Qnet_tmp     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  Qsw_tmp      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  EmPmR_tmp    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

      integer i, j, bi, bj

      DO bj=1,nSy
       DO bi=1,nSx
        DO j=1-OLy,sNy+OLy
         DO i=1-OLx,sNx+OLx
          fu_tmp      (i,j,bi,bj) = fu      (i,j,bi,bj)
          fv_tmp      (i,j,bi,bj) = fv      (i,j,bi,bj)
          Qnet_tmp    (i,j,bi,bj) = Qnet    (i,j,bi,bj)
          Qsw_tmp     (i,j,bi,bj) = Qsw     (i,j,bi,bj)
          EmPmR_tmp   (i,j,bi,bj) = EmPmR   (i,j,bi,bj)
         ENDDO
        ENDDO
       ENDDO
      ENDDO

#endif /* ALLOW_CPL_MPMICE */

      RETURN
      END