pkg/atm_ocn_coupler/cpl_register_ocn.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CStartOfInterface
                0004       SUBROUTINE CPL_REGISTER_OCN
                0005 C     /==========================================================\
                0006 C     | SUBROUTINE CPL_REGISTER_OCN                              |
                0007 C     | o Routine for registration of ocean 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 "OCNSIZE.h"
                0017 #include "OCNVARS.h"
                0018 #include "OCNIDS.h"
                0019
                0020 C     == Routine arguments ==
                0021
                0022 C     == Local variables ==
                0023
                0024 CEndOfInterface
                0025
                0026 C     Call MIT Coupler registration acceptance procedure.  Make sure that nobody
                0027 C     who registers for ocnCompName has a sub-domain that exceeds the bounds
                0028 C     Nx_ocn, Ny_ocn.
                0029 C     The first argument to MITCOUPLER_tile_register gives the name of the
                0030 C     component whose attributes will be collected by the particular call
                0031 C     to MITCOUPLER_tile_register.
                0032 C     The second and third arguments to MITCOUPLER_tile_register are used
                0033 C     for an internal error check. This check makes sure that the sub-domain
                0034 C     sizes reported by each of the component processes for a given component
                0035 C     fall within the global domain size the coupler is expecting.
                0036       CALL MITCOUPLER_TILE_REGISTER( ocnCompName, Nx_ocn, Ny_ocn )
                0037
                0038       RETURN
                0039       END