pkg/atm2d/cpl_recv_ocn_ocnconfig.F

C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_ocnconfig.F,v 1.3 2006/06/15 23:29:17 jmc Exp $
C $Name:  $

#include "ATM2D_OPTIONS.h"

CBOP 0
C !ROUTINE: CPL_RECV_OCN_OCNCONFIG

C !INTERFACE:
      SUBROUTINE CPL_RECV_OCN_OCNCONFIG

C !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE CPL_RECV_OCN_OCNCONFIG
C     | o Routine for receiving ocean config into coupling level.
C     *==========================================================*
C     | This version talks to the MITgcm general circulation
C     | model. For now just get the models depth map.
C     *==========================================================*

#ifdef ATM2D_MPI_ON
C !USES:
      IMPLICIT NONE
C     == Global variables ==
#include "OCNSIZE.h"
#include "OCNVARS.h"
#include "OCNIDS.h"
c#include "CPL_PARAMS.h"

C !INPUT/OUTPUT PARAMETERS:

C !LOCAL VARIABLES:
      INTEGER tmpFld(1)
CEOP

C     Get config from ocean component
C     o receive number of coupler time-steps the ocean will do
      CALL COUPRECV_I4VEC( ocnCompName,
     I                     'nCouplingSteps', 1,
     O                     tmpFld )
c     nSteps_ocn = tmpFld(1)

C     o receive Ocean Mixed-Layer Depth
      CALL COUPRECV_R8TILES( ocnCompName,
     I                       ocnMxlDName, Nx_ocn, Ny_ocn,
     O                       OcMxlD_ocn )

#endif /* ATM2D_MPI_ON */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_ocnconfig.F,v 1.3 2006/06/15 23:29:17 jmc Exp $
2	C $Name: $
3
4	#include "ATM2D_OPTIONS.h"
5
6	CBOP 0
7	C !ROUTINE: CPL_RECV_OCN_OCNCONFIG
8
9	C !INTERFACE:
10	SUBROUTINE CPL_RECV_OCN_OCNCONFIG
11
12	C !DESCRIPTION:
13	C ==========================================================
14	C \| SUBROUTINE CPL_RECV_OCN_OCNCONFIG
15	C \| o Routine for receiving ocean config into coupling level.
16	C ==========================================================
17	C \| This version talks to the MITgcm general circulation
18	C \| model. For now just get the models depth map.
19	C ==========================================================
20
21	#ifdef ATM2D_MPI_ON
22	C !USES:
23	IMPLICIT NONE
24	C == Global variables ==
25	#include "OCNSIZE.h"
26	#include "OCNVARS.h"
27	#include "OCNIDS.h"
28	c#include "CPL_PARAMS.h"
29
30	C !INPUT/OUTPUT PARAMETERS:
31
32	C !LOCAL VARIABLES:
33	INTEGER tmpFld(1)
34	CEOP
35
36	C Get config from ocean component
37	C o receive number of coupler time-steps the ocean will do
38	CALL COUPRECV_I4VEC( ocnCompName,
39	I 'nCouplingSteps', 1,
40	O tmpFld )
41	c nSteps_ocn = tmpFld(1)
42
43	C o receive Ocean Mixed-Layer Depth
44	CALL COUPRECV_R8TILES( ocnCompName,
45	I ocnMxlDName, Nx_ocn, Ny_ocn,
46	O OcMxlD_ocn )
47
48	#endif /* ATM2D_MPI_ON */
49
50	RETURN
51	END