pkg/atm2d/cpl_recv_ocn_ocnconfig.F

09a6f3668a Jeff*0001 #include "ATM2D_OPTIONS.h"
                0002
1aa77e172a Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_RECV_OCN_OCNCONFIG
                0005
                0006 C !INTERFACE:
09a6f3668a Jeff*0007       SUBROUTINE CPL_RECV_OCN_OCNCONFIG
                0008
1aa77e172a Jean*0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE CPL_RECV_OCN_OCNCONFIG
                0012 C     | o Routine for receiving ocean config into coupling level.
                0013 C     *==========================================================*
                0014 C     | This version talks to the MITgcm general circulation
                0015 C     | model. For now just get the models depth map.
                0016 C     *==========================================================*
                0017
                0018 #ifdef ATM2D_MPI_ON
                0019 C !USES:
                0020       IMPLICIT NONE
09a6f3668a Jeff*0021 C     == Global variables ==
                0022 #include "OCNSIZE.h"
                0023 #include "OCNVARS.h"
                0024 #include "OCNIDS.h"
1aa77e172a Jean*0025 c#include "CPL_PARAMS.h"
09a6f3668a Jeff*0026
1aa77e172a Jean*0027 C !INPUT/OUTPUT PARAMETERS:
09a6f3668a Jeff*0028
1aa77e172a Jean*0029 C !LOCAL VARIABLES:
                0030       INTEGER tmpFld(1)
                0031 CEOP
09a6f3668a Jeff*0032
                0033 C     Get config from ocean component
1aa77e172a Jean*0034 C     o receive number of coupler time-steps the ocean will do
                0035       CALL COUPRECV_I4VEC( ocnCompName,
                0036      I                     'nCouplingSteps', 1,
                0037      O                     tmpFld )
                0038 c     nSteps_ocn = tmpFld(1)
                0039
                0040 C     o receive Ocean Mixed-Layer Depth
9274434acc Jean*0041       CALL COUPRECV_R8TILES( ocnCompName,
                0042      I                       ocnMxlDName, Nx_ocn, Ny_ocn,
09a6f3668a Jeff*0043      O                       OcMxlD_ocn )
                0044
1aa77e172a Jean*0045 #endif /* ATM2D_MPI_ON */
                0046
09a6f3668a Jeff*0047       RETURN
                0048       END