C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_send_ocn_fields.F,v 1.7 2016/01/06 00:32:11 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: CPL_SEND_OCN_FIELDS
C     !INTERFACE:
      SUBROUTINE CPL_SEND_OCN_FIELDS( msgUnit, iter )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE CPL_SEND_OCN_FIELDS
C     | o Routine for sending surface flux to ocean component
C     *==========================================================*
C     | This version talks to the MITgcm general circulation
C     | model.
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE

C     == Global variables ==
#include "CPL_PARAMS.h"
#include "ATMSIZE.h"
#include "ATMVARS.h"
#include "OCNSIZE.h"
#include "OCNVARS.h"
#include "OCNIDS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     msgUnit   :: log-file I/O unit
C     iter      :: current iteration number
      INTEGER msgUnit, iter

C     !LOCAL VARIABLES:
      _RL tmpFld(Nx_ocn,Ny_ocn)
CEOP

C--   Map Sea Level atmos. pressure onto ocean grid
      CALL ATM_TO_OCN_MAPXYR8(
     I         Nx_atm, Ny_atm, atmSLPr_atm, Nx_ocn, Ny_ocn,
     O                         atmSLPr_ocn )
C     Send Sea Level atmos. pressure to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,
     I                       Nx_ocn, Ny_ocn, atmSLPr_ocn )

C--   Map heatflux onto ocean grid
      CALL ATM_TO_OCN_MAPXYR8(
     I         Nx_atm, Ny_atm, HeatFlux_atm, Nx_ocn, Ny_ocn,
     O                         HeatFlux_ocn )
      IF ( cpl_exchange_RunOff.GE.2 ) THEN
C     Map Energy flux carried by RunOff onto ocean grid and substract it
C       from previous (direct) FWFlux => total Heat-Flux = Qnet - EnRunOff
        CALL ATM_TO_OCN_MAPRUNOFF(
     I           ROEnFx_atm,
     O           tmpFld,
     U           HeatFlux_ocn )
      ENDIF
C     Send (net) heatflux. to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,
     I                       Nx_ocn, Ny_ocn, HeatFlux_ocn )

C--   Map net shortwave radiation onto ocean grid
      CALL ATM_TO_OCN_MAPXYR8(
     I         Nx_atm, Ny_atm, qShortWave_atm, Nx_ocn, Ny_ocn,
     O                         qShortWave_ocn )
C     Send net shortwave radiation to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,
     I                       Nx_ocn, Ny_ocn, qShortWave_ocn )

C--   Map Zonal momentum flux onto ocean grid
      CALL ATM_TO_OCN_MAPXYR8(
     I         Nx_atm, Ny_atm, TauX_atm, Nx_ocn, Ny_ocn,
     O                         TauX_ocn )
C     Send Zonal momentum flux to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,
     I                       Nx_ocn, Ny_ocn, TauX_ocn )

C--   Map Meridional momentum flux onto ocean grid
      CALL ATM_TO_OCN_MAPXYR8(
     I         Nx_atm, Ny_atm, TauY_atm, Nx_ocn, Ny_ocn,
     O                         TauY_ocn )
C     Send Meridional momentum flux to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,
     I                       Nx_ocn, Ny_ocn, TauY_ocn )

C--   Map atmos. fresh water flux onto ocean grid : Evap - Precip
      CALL ATM_TO_OCN_MAPXYR8(
     I         Nx_atm, Ny_atm, EvMPr_atm, Nx_ocn, Ny_ocn,
     O                         FWFlux_ocn )
      IF ( cpl_exchange_RunOff.GE.2 ) THEN
C     Map atmos. runOff from land onto ocean grid and substract it
C       from previous (direct) FWFlux => total FWFlux = E-P-R
        CALL ATM_TO_OCN_MAPRUNOFF(
     I           RunOff_atm,
     O           RunOff_ocn,
     U           FWFlux_ocn )
      ENDIF
C     Send E-P-R to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,
     I                       Nx_ocn, Ny_ocn, FWFlux_ocn )

      IF ( MOD(cpl_exchange1W_sIce,2).EQ.1 ) THEN
C--   Map salt flux from sea-ice compon. onto ocean grid
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, SaltFlx_atm, Nx_ocn, Ny_ocn,
     O                         SaltFlx_ocn )
C     Send salt flux to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnSaltFxName,
     I                         Nx_ocn, Ny_ocn, SaltFlx_ocn )

C--   Map sea-ice mass onto ocean grid
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, sIceMass_atm, Nx_ocn, Ny_ocn,
     O                           sIceMass_ocn )
C     Send sea-ice mass to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnSIceMassName,
     I                         Nx_ocn, Ny_ocn, sIceMass_ocn )
      ENDIF

      IF ( MOD(cpl_exchange_SaltPl,2).EQ.1 ) THEN
C--   Map Salt-Plume flux onto ocean grid
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, saltPlmFlx_atm, Nx_ocn, Ny_ocn,
     O                           saltPlmFlx_ocn )
C     Send Salt-Plume flux to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnSaltPlmFlxName,
     I                         Nx_ocn, Ny_ocn, saltPlmFlx_ocn  )
      ENDIF

      IF ( MOD(cpl_exchange_RunOff,2).EQ.1 ) THEN
C     Send Run-Off flux to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnRunOffName,
     I                         Nx_ocn, Ny_ocn, RunOff_ocn  )
      ENDIF

      IF ( MOD(cpl_exchange_DIC,2).EQ.1 ) THEN
C--   Map atmos CO2 onto ocean grid
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, aCO2_atm, Nx_ocn, Ny_ocn,
     O                           aCO2_ocn )
C     Send atmos CO2 to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,
     I                         Nx_ocn, Ny_ocn, aCO2_ocn )

C--   Map surface wind speed onto ocean grid
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, wSpeed_atm, Nx_ocn, Ny_ocn,
     O                           wSpeed_ocn )
C     Send surface windspeed to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnWindSpdName,
     I                         Nx_ocn, Ny_ocn, wSpeed_ocn )
      ENDIF

      IF ( ( MOD(cpl_exchange1W_sIce,2).EQ.1
     &     .AND.MOD(cpl_exchange_DIC,2).EQ.1 )
     &  .OR. MOD(cpl_exchange2W_sIce,2).EQ.1 ) THEN
C--   Map seaice fraction from atmos. compon. onto ocean grid
       IF ( ( cpl_exchange1W_sIce.GE.2
     &      .AND.cpl_exchange_DIC.GE.2 )
     &   .OR. cpl_exchange2W_sIce.GE.2 ) THEN
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, SIceFrac_atm, Nx_ocn, Ny_ocn,
     O                           SIceFrac_ocn )
       ENDIF
C     Send sea-ice fraction to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnSIceFracName,
     I                         Nx_ocn, Ny_ocn, SIceFrac_ocn )
      ENDIF

      IF ( cpl_exchange2W_sIce.EQ.3 ) THEN
C--   Map other pkg/thsice fields onto ocean grid:
C     Map seaice thickness
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, sIceThick_atm, Nx_ocn, Ny_ocn,
     O                           sIceThick_ocn )
C     Map snow thickness
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, sIceSnowH_atm, Nx_ocn, Ny_ocn,
     O                           sIceSnowH_ocn )
C     Map seaice enthalpy (layer 1)
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, sIceQ1_atm, Nx_ocn, Ny_ocn,
     O                           sIceQ1_ocn )
C     Map seaice enthalpy (layer 2)
        CALL ATM_TO_OCN_MAPXYR8(
     I           Nx_atm, Ny_atm, sIceQ2_atm, Nx_ocn, Ny_ocn,
     O                           sIceQ2_ocn )
      ENDIF
      IF ( MOD(cpl_exchange2W_sIce,2).EQ.1 ) THEN
C--   Map other pkg/thsice fields to ocean component:
C     Send seaice thickness
        CALL COUPSEND_R8TILES( ocnCompName, ocnSIceThickName,
     I                         Nx_ocn, Ny_ocn, sIceThick_ocn )
C     Send snow thickness
        CALL COUPSEND_R8TILES( ocnCompName, ocnSIceSnowName,
     I                         Nx_ocn, Ny_ocn, sIceSnowH_ocn )
C     Send seaice enthalpy (layer 1)
        CALL COUPSEND_R8TILES( ocnCompName, ocnSIceQ1Name,
     I                         Nx_ocn, Ny_ocn, sIceQ1_ocn )
C     Send seaice enthalpy (layer 2)
        CALL COUPSEND_R8TILES( ocnCompName, ocnSIceQ2Name,
     I                         Nx_ocn, Ny_ocn, sIceQ2_ocn )
      ENDIF

      RETURN
      END