pkg/atm2d/cpl_register_ocn.F

#include "ATM2D_OPTIONS.h"
#ifdef ATM2D_MPI_ON

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