pkg/atm2d/exch_component_configs.F

1aa77e172a Jean*0001 #include "ATM2D_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 #ifdef ATM2D_MPI_ON
                0031 C !LOCAL VARIABLES:
                0032       LOGICAL errFlag
                0033       CHARACTER*70 errMsg
                0034 CEOP
                0035
                0036       errFlag = .FALSE.
                0037       errMsg  = ' '
                0038
                0039 C--   1) collect configs from all components
                0040
                0041 C     Receive ocean config (OCNCONFIG) from ocean component (OCN).
                0042       CALL CPL_RECV_OCN_OCNCONFIG
                0043
                0044 C     Receive atmos config (ATCONFIG) from atmos.  component (ATM).
                0045 c     CALL CPL_RECV_ATM_ATMCONFIG
                0046
                0047 C--   2) send to all components the configs of the other component
                0048
                0049 C     Send atmos. config (ATMCONFIG) to ocean component (OCN).
                0050       CALL CPL_SEND_OCN_ATMCONFIG
                0051
                0052 C     Send ocean config (OCNCONFIG) to atmos. component (ATM).
                0053 c     CALL CPL_SEND_ATM_OCNCONFIG
                0054
                0055 C--   3) define length of the run (number of coupler time-step)
                0056 C        and check for consistent Coupler config (vs components)
                0057 c     CALL CPL_CHECK_CPLCONFIG(
                0058 c    I                          msgUnit,
                0059 c    U                          errFlag, errMsg )
                0060
                0061 C--   All procs in World check for error and stop if any
                0062       CALL MITCPLR_ALL_CHECK( errFlag, errMsg )
                0063
                0064 #endif /* ATM2D_MPI_ON */
                0065
                0066       RETURN
                0067       END