pkg/atm2d/cpl_recv_ocn_fields.F

09a6f3668a Jeff*0001 #include "ATM2D_OPTIONS.h"
                0002 #ifdef ATM2D_MPI_ON
                0003
                0004 CStartOfInterface
9274434acc Jean*0005       SUBROUTINE CPL_RECV_OCN_FIELDS
09a6f3668a Jeff*0006 C     /==========================================================\
                0007 C     | SUBROUTINE CPL_RECV_OCN_FIELDS                           |
                0008 C     | o Routine for receiving surface fields from ocean        |
                0009 C     |   component.                                             |
                0010 C     |==========================================================|
                0011 C     | This version talks to the MITgcm general circulation     |
                0012 C     | model.                                                   |
                0013 C     \==========================================================/
                0014       IMPLICIT NONE
                0015
                0016 C     == Global variables ==
                0017 #include "OCNSIZE.h"
                0018 #include "OCNVARS.h"
                0019 #include "OCNIDS.h"
                0020
                0021 C     == Routine arguments ==
                0022
                0023 C     == Local variables ==
                0024
                0025 CEndOfInterface
                0026
                0027 C     Receive Ocean mixed-layer depths from ocean component
9274434acc Jean*0028       CALL COUPRECV_R8TILES( ocnCompName, ocnMxlDName,
                0029      I                       Nx_ocn, Ny_ocn,
09a6f3668a Jeff*0030      O                       OcMxlD_ocn )
                0031
                0032 C     Receive sea surface temperature from ocean component
9274434acc Jean*0033       CALL COUPRECV_R8TILES( ocnCompName, ocnSSTName,
                0034      I                       Nx_ocn, Ny_ocn,
09a6f3668a Jeff*0035      O                       SST_ocn )
                0036
                0037 C     Receive sea surface salinity from ocean component
9274434acc Jean*0038       CALL COUPRECV_R8TILES( ocnCompName, ocnSSSName,
                0039      I                       Nx_ocn, Ny_ocn,
09a6f3668a Jeff*0040      O                       SSS_ocn )
                0041
                0042 C     Receive sea surface velocity square from ocean component
9274434acc Jean*0043       CALL COUPRECV_R8TILES( ocnCompName, ocnSSVsqName,
                0044      I                       Nx_ocn, Ny_ocn,
09a6f3668a Jeff*0045      O                       vSq_ocn )
                0046
0b83645f94 Jeff*0047       IF ( ocnCpl_exchange_DIC ) THEN
                0048 C       Receive ocn->atm flux of CO2 from ocean component
9274434acc Jean*0049         CALL COUPRECV_R8TILES( ocnCompName, ocnFCO2Name,
                0050      I                       Nx_ocn, Ny_ocn,
0b83645f94 Jeff*0051      O                       fluxCO2_ocn )
                0052       ENDIF
09a6f3668a Jeff*0053
                0054       RETURN
                0055       END
                0056
                0057 #endif