pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
4abf9d9a22 Jean*0003 CBOP
                0004 C     !ROUTINE: CPL_RECV_OCN_FIELDS
                0005 C     !INTERFACE:
                0006       SUBROUTINE CPL_RECV_OCN_FIELDS( msgUnit, iter )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE CPL_RECV_OCN_FIELDS
                0011 C     | o Routine for receiving surface fields from ocean
                0012 C     |   component.
                0013 C     *==========================================================*
                0014 C     | This version talks to the MITgcm general circulation
                0015 C     | model.
                0016 C     *==========================================================*
                0017 C     \ev
                0018
                0019 C     !USES:
7f58e89433 Jean*0020       IMPLICIT NONE
                0021
                0022 C     == Global variables ==
00df836f46 Jean*0023 #include "CPL_PARAMS.h"
7f58e89433 Jean*0024 #include "OCNSIZE.h"
                0025 #include "OCNVARS.h"
                0026 #include "OCNIDS.h"
                0027
4abf9d9a22 Jean*0028 C     !INPUT/OUTPUT PARAMETERS:
                0029 C     msgUnit   :: log-file I/O unit
                0030 C     iter      :: current iteration number
                0031       INTEGER msgUnit, iter
7f58e89433 Jean*0032
4abf9d9a22 Jean*0033 C     !LOCAL VARIABLES:
                0034 CEOP
7f58e89433 Jean*0035
                0036 C     Receive Ocean mixed-layer depths from ocean component
00df836f46 Jean*0037       CALL COUPRECV_R8TILES( ocnCompName, ocnMxlDName,
                0038      I                       Nx_ocn, Ny_ocn,
7f58e89433 Jean*0039      O                       OcMxlD_ocn )
                0040
                0041 C     Receive sea surface temperature from ocean component
00df836f46 Jean*0042       CALL COUPRECV_R8TILES( ocnCompName, ocnSSTName,
                0043      I                       Nx_ocn, Ny_ocn,
7f58e89433 Jean*0044      O                       SST_ocn )
                0045
                0046 C     Receive sea surface salinity from ocean component
00df836f46 Jean*0047       CALL COUPRECV_R8TILES( ocnCompName, ocnSSSName,
                0048      I                       Nx_ocn, Ny_ocn,
7f58e89433 Jean*0049      O                       SSS_ocn )
                0050
                0051 C     Receive sea surface velocity square from ocean component
00df836f46 Jean*0052       CALL COUPRECV_R8TILES( ocnCompName, ocnSSVsqName,
                0053      I                       Nx_ocn, Ny_ocn,
7f58e89433 Jean*0054      O                       vSq_ocn )
                0055
00df836f46 Jean*0056       IF ( MOD(cpl_exchange_DIC,2).EQ.1 ) THEN
4ee86acaaf Jeff*0057 C       Receive ocn->atm flux of CO2 from ocean component
00df836f46 Jean*0058         CALL COUPRECV_R8TILES( ocnCompName, ocnCO2FluxName,
4abf9d9a22 Jean*0059      I                         Nx_ocn, Ny_ocn,
                0060      O                         fluxCO2_ocn )
                0061       ENDIF
                0062
                0063       IF ( MOD(cpl_exchange2W_sIce,2).EQ.1 ) THEN
                0064 C-    Receive seaice fraction from ocean component
                0065         CALL COUPRECV_R8TILES( ocnCompName, ocnSIceFracName,
                0066      I                         Nx_ocn, Ny_ocn,
                0067      O                         sIceFrac_ocn )
                0068 C-    Receive seaice thickness from ocean component
                0069         CALL COUPRECV_R8TILES( ocnCompName, ocnSIceThickName,
                0070      I                         Nx_ocn, Ny_ocn,
                0071      O                         sIceThick_ocn )
                0072 C-    Receive snow thickness from ocean component
                0073         CALL COUPRECV_R8TILES( ocnCompName, ocnSIceSnowName,
                0074      I                         Nx_ocn, Ny_ocn,
                0075      O                         sIceSnowH_ocn )
                0076 C-    Receive seaice enthalpy (layer 1) from ocean component
                0077         CALL COUPRECV_R8TILES( ocnCompName, ocnSIceQ1Name,
                0078      I                         Nx_ocn, Ny_ocn,
                0079      O                         sIceQ1_ocn )
                0080 C-    Receive seaice enthalpy (layer 2) from ocean component
                0081         CALL COUPRECV_R8TILES( ocnCompName, ocnSIceQ2Name,
                0082      I                         Nx_ocn, Ny_ocn,
                0083      O                         sIceQ2_ocn )
4ee86acaaf Jeff*0084       ENDIF
                0085
7f58e89433 Jean*0086       RETURN
                0087       END