jscott/pkg_atm2d/cpl_register_ocn.F

C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_register_ocn.F,v 1.3 2006/06/15 23:29:17 jmc Exp $
C $Name:  $
#ifdef ATM2D_MPI_ON
#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE CPL_REGISTER_OCN
C     /==========================================================\
C     | SUBROUTINE CPL_REGISTER_OCN                              |
C     | o Routine for registration of ocean config. with coupler |
C     |   layer.                                                 |
C     |==========================================================|
C     | This version talks to the MITgcm general circulation     |
C     | model. For now just get the models depth map.            |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ==
#include "OCNSIZE.h"
#include "OCNVARS.h"
#include "OCNIDS.h"

C     == Routine arguments ==

C     == Local variables ==

CEndOfInterface

C     Call MIT Coupler registration acceptance procedure.  Make sure that nobody
C     who registers for ocnCompName has a sub-domain that exceeds the bounds
C     Nx_ocn, Ny_ocn.
C     The first argument to MITCOUPLER_tile_register gives the name of the
C     component whose attributes will be collected by the particular call
C     to MITCOUPLER_tile_register.
C     The second and third arguments to MITCOUPLER_tile_register are used
C     for an internal error check. This check makes sure that the sub-domain
C     sizes reported by each of the component processes for a given component
C     fall within the global domain size the coupler is expecting.
      CALL MITCOUPLER_TILE_REGISTER( ocnCompName, Nx_ocn, Ny_ocn )

      RETURN
      END
#endif
1	jscott	1.1	C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_register_ocn.F,v 1.3 2006/06/15 23:29:17 jmc Exp $
2			C $Name: $
3			#ifdef ATM2D_MPI_ON
4			#include "CPP_OPTIONS.h"
5
6			CStartOfInterface
7			SUBROUTINE CPL_REGISTER_OCN
8			C /==========================================================\
9			C \| SUBROUTINE CPL_REGISTER_OCN \|
10			C \| o Routine for registration of ocean config. with coupler \|
11			C \| layer. \|
12			C \|==========================================================\|
13			C \| This version talks to the MITgcm general circulation \|
14			C \| model. For now just get the models depth map. \|
15			C \==========================================================/
16			IMPLICIT NONE
17
18			C == Global variables ==
19			#include "OCNSIZE.h"
20			#include "OCNVARS.h"
21			#include "OCNIDS.h"
22
23			C == Routine arguments ==
24
25			C == Local variables ==
26
27			CEndOfInterface
28
29			C Call MIT Coupler registration acceptance procedure. Make sure that nobody
30			C who registers for ocnCompName has a sub-domain that exceeds the bounds
31			C Nx_ocn, Ny_ocn.
32			C The first argument to MITCOUPLER_tile_register gives the name of the
33			C component whose attributes will be collected by the particular call
34			C to MITCOUPLER_tile_register.
35			C The second and third arguments to MITCOUPLER_tile_register are used
36			C for an internal error check. This check makes sure that the sub-domain
37			C sizes reported by each of the component processes for a given component
38			C fall within the global domain size the coupler is expecting.
39			CALL MITCOUPLER_TILE_REGISTER( ocnCompName, Nx_ocn, Ny_ocn )
40
41			RETURN
42			END
43			#endif