pkg/atm_ocn_coupler/cpl_recv_ocn_ocnconfig.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
1eb66a0215 Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_RECV_OCN_OCNCONFIG
                0005
                0006 C !INTERFACE:
7f58e89433 Jean*0007       SUBROUTINE CPL_RECV_OCN_OCNCONFIG
                0008
1eb66a0215 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 C !USES:
                0019       IMPLICIT NONE
7f58e89433 Jean*0020 C     == Global variables ==
                0021 #include "OCNSIZE.h"
                0022 #include "OCNVARS.h"
                0023 #include "OCNIDS.h"
1eb66a0215 Jean*0024 #include "CPL_PARAMS.h"
7f58e89433 Jean*0025
1eb66a0215 Jean*0026 C !INPUT/OUTPUT PARAMETERS:
7f58e89433 Jean*0027
1eb66a0215 Jean*0028 C !LOCAL VARIABLES:
                0029       INTEGER tmpFld(1)
                0030 CEOP
7f58e89433 Jean*0031
                0032 C     Get config from ocean component
1eb66a0215 Jean*0033 C     o receive number of coupler time-steps the ocean will do
                0034       CALL COUPRECV_I4VEC( ocnCompName,
                0035      I                     'nCouplingSteps', 1,
                0036      O                     tmpFld )
                0037       nSteps_ocn = tmpFld(1)
                0038
                0039 C     o receive Ocean Mixed-Layer Depth
                0040       CALL COUPRECV_R8TILES( ocnCompName,
                0041      I                       ocnMxlDName, Nx_ocn, Ny_ocn,
7f58e89433 Jean*0042      O                       OcMxlD_ocn )
                0043
                0044       RETURN
                0045       END