C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F,v 1.6 2016/01/06 00:32:11 jmc Exp $ C $Name: $ #include "CPP_OPTIONS.h" CBOP C !ROUTINE: CPL_RECV_OCN_FIELDS C !INTERFACE: SUBROUTINE CPL_RECV_OCN_FIELDS( msgUnit, iter ) C !DESCRIPTION: \bv C *==========================================================* C | SUBROUTINE CPL_RECV_OCN_FIELDS C | o Routine for receiving surface fields from ocean C | 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 "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: CEOP C Receive Ocean mixed-layer depths from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnMxlDName, I Nx_ocn, Ny_ocn, O OcMxlD_ocn ) C Receive sea surface temperature from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSSTName, I Nx_ocn, Ny_ocn, O SST_ocn ) C Receive sea surface salinity from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSSSName, I Nx_ocn, Ny_ocn, O SSS_ocn ) C Receive sea surface velocity square from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSSVsqName, I Nx_ocn, Ny_ocn, O vSq_ocn ) IF ( MOD(cpl_exchange_DIC,2).EQ.1 ) THEN C Receive ocn->atm flux of CO2 from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnCO2FluxName, I Nx_ocn, Ny_ocn, O fluxCO2_ocn ) ENDIF IF ( MOD(cpl_exchange2W_sIce,2).EQ.1 ) THEN C- Receive seaice fraction from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSIceFracName, I Nx_ocn, Ny_ocn, O sIceFrac_ocn ) C- Receive seaice thickness from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSIceThickName, I Nx_ocn, Ny_ocn, O sIceThick_ocn ) C- Receive snow thickness from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSIceSnowName, I Nx_ocn, Ny_ocn, O sIceSnowH_ocn ) C- Receive seaice enthalpy (layer 1) from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSIceQ1Name, I Nx_ocn, Ny_ocn, O sIceQ1_ocn ) C- Receive seaice enthalpy (layer 2) from ocean component CALL COUPRECV_R8TILES( ocnCompName, ocnSIceQ2Name, I Nx_ocn, Ny_ocn, O sIceQ2_ocn ) ENDIF RETURN END