pkg/atm_ocn_coupler/cpl_register_atm.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CStartOfInterface
                0004       SUBROUTINE CPL_REGISTER_ATM
                0005 C     /==========================================================\
                0006 C     | SUBROUTINE CPL_REGISTER_ATM                              |
                0007 C     | o Routine for registration of atmos config. with coupler |
                0008 C     |   layer.                                                 |
                0009 C     |==========================================================|
                0010 C     | This version talks to the MITgcm general circulation     |
                0011 C     | model. For now just get the models depth map.            |
                0012 C     \==========================================================/
                0013       IMPLICIT NONE
                0014
                0015 C     == Global variables ==
                0016 #include "ATMSIZE.h"
                0017 #include "ATMIDS.h"
                0018
                0019 C     == Routine arguments ==
                0020 CEndOfInterface
                0021
                0022 C     Call MIT Coupler registration acceptance procedure.  Make sure that nobody
                0023 C     who registers for atmCompName has a sub-domain that exceeds the bounds
                0024 C     Nx_atm, Ny_atm.
                0025 C     The first argument to MITCOUPLER_tile_register gives the name of the
                0026 C     component whose attributes will be collected by the particular call
                0027 C     to MITCOUPLER_tile_register.
                0028 C     The second and third arguments to MITCOUPLER_tile_register are used
                0029 C     for an internal error check. This check makes sure that the sub-domain
                0030 C     sizes reported by each of the component processes for a given component
                0031 C     fall within the global domain size the coupler is expecting.
                0032       CALL MITCOUPLER_TILE_REGISTER( atmCompName, Nx_atm, Ny_atm )
                0033
                0034       RETURN
                0035       END