pkg/atm_ocn_coupler/exch_component_configs.F

885dea980c Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CBOP 0
                0004 C !ROUTINE: EXCH_COMPONENT_CONFIGS
                0005
                0006 C !INTERFACE:
                0007       SUBROUTINE EXCH_COMPONENT_CONFIGS( msgUnit )
                0008
                0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE EXCH_COMPONENT_CONFIGS
                0012 C     | o Routine which controls exchange of component model
                0013 C     |   configuration information to other components.
                0014 C     *==========================================================*
                0015
                0016 C !USES:
                0017       IMPLICIT NONE
                0018 C     == Global variables ==
                0019 C     Data on ocean grid
                0020 c#include "OCNSIZE.h"
                0021 c#include "OCNVARS.h"
                0022 C     Data on atmos grid
                0023 c#include "ATMSIZE.h"
                0024 c#include "ATMVARS.h"
                0025
                0026 C !INPUT/OUTPUT PARAMETERS:
                0027 C     msgUnit   :: log-file I/O unit
                0028       INTEGER msgUnit
                0029
                0030 C !LOCAL VARIABLES:
                0031       LOGICAL errFlag
                0032       CHARACTER*70 errMsg
                0033 CEOP
                0034
                0035       errFlag = .FALSE.
                0036       errMsg  = ' '
                0037
                0038 C--   1) collect configs from all components
                0039
                0040 C     Receive ocean config (OCNCONFIG) from ocean component (OCN).
                0041       CALL CPL_RECV_OCN_OCNCONFIG
                0042
                0043 C     Receive atmos config (ATCONFIG) from atmos.  component (ATM).
                0044       CALL CPL_RECV_ATM_ATMCONFIG
                0045
                0046 C--   2) send to all components the configs of the other component
                0047
                0048 C     Send atmos. config (ATMCONFIG) to ocean component (OCN).
                0049       CALL CPL_SEND_OCN_ATMCONFIG
                0050
                0051 C     Send ocean config (OCNCONFIG) to atmos. component (ATM).
                0052       CALL CPL_SEND_ATM_OCNCONFIG
                0053
                0054 C--   3) define length of the run (number of coupler time-step)
                0055 C        and check for consistent Coupler config (vs components)
                0056       CALL CPL_CHECK_CPLCONFIG(
                0057      I                          msgUnit,
                0058      U                          errFlag, errMsg )
                0059
                0060 C--   All procs in World check for error and stop if any
                0061       CALL MITCPLR_ALL_CHECK( errFlag, errMsg )
                0062
                0063       RETURN
                0064       END