pkg/ocn_compon_interf/cpl_exch_configs.F

31ebb84b18 Jean*0001 #include "OCN_CPL_OPTIONS.h"
69e21e3ef0 Jean*0002
79e04e6111 Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_EXCH_CONFIGS
                0005
                0006 C !INTERFACE:
69e21e3ef0 Jean*0007       SUBROUTINE CPL_EXCH_CONFIGS( myThid )
79e04e6111 Jean*0008
                0009 C !DESCRIPTION:
69e21e3ef0 Jean*0010 C     *==========================================================*
1a1199da4c Jean*0011 C     | SUBROUTINE CPL_EXCH_CONFIGS
                0012 C     | o Controlling routine for initial config exchange between
                0013 C     |   component models and ocean component.
                0014 C     | - Oceanic version -
69e21e3ef0 Jean*0015 C     *==========================================================*
1a1199da4c Jean*0016 C     | Controls the import of configuration information
                0017 C     | (grid/topography,etc...) from other components and the
                0018 C     | export of configuration information from this component.
                0019 C     | The routine does some basic checking on consistency
                0020 C     | components and summarizes the information that has been
                0021 C     | imported.
                0022 C     | The routine will need to be customised for different
                0023 C     | styles of coupled run. The coupler requires consistency
                0024 C     | between sending and receiving operations posted by
                0025 C     | various components. Therefore changes in one component
                0026 C     | model CPL_EXCH_CONFIG may require changes in other
                0027 C     | component models CPL_EXCH_CONFIG routines as well
                0028 C     | as in the coupler EXCH_COMPONENT_CONFIG routine.
69e21e3ef0 Jean*0029 C     *==========================================================*
                0030
79e04e6111 Jean*0031 C !USES:
                0032       IMPLICIT NONE
69e21e3ef0 Jean*0033 C     == Global variables ==
                0034 #include "SIZE.h"
                0035 #include "EEPARAMS.h"
31ebb84b18 Jean*0036 c#include "PARAMS.h"
                0037 c#include "CPL_PARAMS.h"
69e21e3ef0 Jean*0038
79e04e6111 Jean*0039 C !INPUT/OUTPUT PARAMETERS:
                0040 C     myThid :: Thread number for this instance of the routine
69e21e3ef0 Jean*0041       INTEGER myThid
                0042
1a1199da4c Jean*0043 C !LOCAL VARIABLES:
31ebb84b18 Jean*0044 C     errMsg   :: error message to print to clog file
1a1199da4c Jean*0045       LOGICAL errFlag
                0046       CHARACTER*70 errMsg
31ebb84b18 Jean*0047 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
1a1199da4c Jean*0048 CEOP
69e21e3ef0 Jean*0049
31ebb84b18 Jean*0050       errFlag = .FALSE.
                0051       errMsg  = ' '
                0052
                0053 C-    Post my configuration information to the coupler "layer".
69e21e3ef0 Jean*0054       CALL OCN_EXPORT_OCNCONFIG( myThid )
                0055
31ebb84b18 Jean*0056 C-    Import other component model(s) configuration(s) from the
69e21e3ef0 Jean*0057 C     coupler "layer".
                0058 C     o Get atmospheric model configuration
                0059       CALL OCN_IMPORT_ATMCONFIG( myThid )
                0060
31ebb84b18 Jean*0061 C-    Summarise coupling config set-up and check for inconsistency
1a1199da4c Jean*0062       _BARRIER
31ebb84b18 Jean*0063       CALL OCN_CHECK_CPLCONFIG(
                0064      U                        errFlag, errMsg,
                0065      I                        myThid )
1a1199da4c Jean*0066
                0067 C--   All procs in World check for error and stop if any
31ebb84b18 Jean*0068       _BEGIN_MASTER( myThid )
1a1199da4c Jean*0069       CALL MITCPLR_ALL_CHECK( errFlag, errMsg )
                0070       _END_MASTER( myThid )
31ebb84b18 Jean*0071
1a1199da4c Jean*0072       _BARRIER
69e21e3ef0 Jean*0073
                0074       RETURN
                0075       END