pkg/atm_ocn_coupler/cpl_register_atm.F

C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/cpl_register_atm.F,v 1.1 2003/12/15 02:28:01 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE CPL_REGISTER_ATM
C     /==========================================================\
C     | SUBROUTINE CPL_REGISTER_ATM                              |
C     | o Routine for registration of atmos 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 "ATMSIZE.h"
#include "ATMIDS.h"

C     == Routine arguments ==
CEndOfInterface

C     Call MIT Coupler registration acceptance procedure.  Make sure that nobody
C     who registers for atmCompName has a sub-domain that exceeds the bounds
C     Nx_atm, Ny_atm.
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( atmCompName, Nx_atm, Ny_atm )

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/cpl_register_atm.F,v 1.1 2003/12/15 02:28:01 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE CPL_REGISTER_ATM
8	C /==========================================================\
9	C \| SUBROUTINE CPL_REGISTER_ATM \|
10	C \| o Routine for registration of atmos 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 "ATMSIZE.h"
20	#include "ATMIDS.h"
21
22	C == Routine arguments ==
23	CEndOfInterface
24
25	C Call MIT Coupler registration acceptance procedure. Make sure that nobody
26	C who registers for atmCompName has a sub-domain that exceeds the bounds
27	C Nx_atm, Ny_atm.
28	C The first argument to MITCOUPLER_tile_register gives the name of the
29	C component whose attributes will be collected by the particular call
30	C to MITCOUPLER_tile_register.
31	C The second and third arguments to MITCOUPLER_tile_register are used
32	C for an internal error check. This check makes sure that the sub-domain
33	C sizes reported by each of the component processes for a given component
34	C fall within the global domain size the coupler is expecting.
35	CALL MITCOUPLER_TILE_REGISTER( atmCompName, Nx_atm, Ny_atm )
36
37	RETURN
38	END