pkg/atm_compon_interf/cpl_exch_configs.F

C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/cpl_exch_configs.F,v 1.4 2013/12/02 22:13:23 jmc Exp $
C $Name:  $

#include "ATM_CPL_OPTIONS.h"

CBOP 0
C !ROUTINE: CPL_EXCH_CONFIGS

C !INTERFACE:
      SUBROUTINE CPL_EXCH_CONFIGS( myThid )

C !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE CPL_EXCH_CONFIGS
C     | o Controlling routine for initial config exchange between
C     |   component models and atmosphere component.
C     | - Atmospheric version -
C     *==========================================================*
C     | Controls the import of configuration information
C     | (grid/topography,etc...) from other components and the
C     | export of configuration information from this component.
C     | The routine does some basic checking on consistency
C     | components and summarizes the information that has been
C     | imported.
C     | The routine will need to be customised for different
C     | styles of coupled run. The coupler requires consistency
C     | between sending and receiving operations posted by
C     | various components. Therefore changes in one component
C     | model CPL_EXCH_CONFIG may require changes in other
C     | component models CPL_EXCH_CONFIG routines as well
C     | as in the coupler EXCH_COMPONENT_CONFIG routine.
C     *==========================================================*

C !USES:
      IMPLICIT NONE
C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
c#include "PARAMS.h"
c#include "CPL_PARAMS.h"

C !INPUT/OUTPUT PARAMETERS:
C     myThid :: Thread number for this instance of the routine
      INTEGER myThid

C !LOCAL VARIABLES:
C     errMsg   :: error message to print to clog file
      LOGICAL errFlag
      CHARACTER*70 errMsg
c     CHARACTER*(MAX_LEN_MBUF) msgBuf
C--   local variable in common block
      _RL landMask_loc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      COMMON / CPL_EXCH_CONFIGS_LOC / landMask_loc
CEOP

      errFlag = .FALSE.
      errMsg  = ' '

C-    Get configuration information (=land/sea mask) from other pkg
      CALL ATM_GET_ATMCONFIG(
     O                        landMask_loc,
     I                        myThid )

C-    Post my configuration information to the coupler "layer".
      CALL ATM_EXPORT_ATMCONFIG(
     U                        errFlag,
     I                        landMask_loc, myThid )

C-    Import other component model(s) configuration(s) from the coupler "layer"
C     o Get ocean model configuration
      CALL ATM_IMPORT_OCNCONFIG( myThid )

C-    Summarise coupling config set-up and check for inconsistency
      _BARRIER
      CALL ATM_CHECK_CPLCONFIG(
     U                        errFlag, errMsg,
     I                        landMask_loc, myThid )

C--   All procs in World check for error and stop if any
      _BEGIN_MASTER( myThid )
      CALL MITCPLR_ALL_CHECK( errFlag, errMsg )
      _END_MASTER( myThid )

      _BARRIER

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/cpl_exch_configs.F,v 1.4 2013/12/02 22:13:23 jmc Exp $
2	C $Name: $
3
4	#include "ATM_CPL_OPTIONS.h"
5
6	CBOP 0
7	C !ROUTINE: CPL_EXCH_CONFIGS
8
9	C !INTERFACE:
10	SUBROUTINE CPL_EXCH_CONFIGS( myThid )
11
12	C !DESCRIPTION:
13	C ==========================================================
14	C \| SUBROUTINE CPL_EXCH_CONFIGS
15	C \| o Controlling routine for initial config exchange between
16	C \| component models and atmosphere component.
17	C \| - Atmospheric version -
18	C ==========================================================
19	C \| Controls the import of configuration information
20	C \| (grid/topography,etc...) from other components and the
21	C \| export of configuration information from this component.
22	C \| The routine does some basic checking on consistency
23	C \| components and summarizes the information that has been
24	C \| imported.
25	C \| The routine will need to be customised for different
26	C \| styles of coupled run. The coupler requires consistency
27	C \| between sending and receiving operations posted by
28	C \| various components. Therefore changes in one component
29	C \| model CPL_EXCH_CONFIG may require changes in other
30	C \| component models CPL_EXCH_CONFIG routines as well
31	C \| as in the coupler EXCH_COMPONENT_CONFIG routine.
32	C ==========================================================
33
34	C !USES:
35	IMPLICIT NONE
36	C == Global variables ==
37	#include "SIZE.h"
38	#include "EEPARAMS.h"
39	c#include "PARAMS.h"
40	c#include "CPL_PARAMS.h"
41
42	C !INPUT/OUTPUT PARAMETERS:
43	C myThid :: Thread number for this instance of the routine
44	INTEGER myThid
45
46	C !LOCAL VARIABLES:
47	C errMsg :: error message to print to clog file
48	LOGICAL errFlag
49	CHARACTER*70 errMsg
50	c CHARACTER*(MAX_LEN_MBUF) msgBuf
51	C-- local variable in common block
52	_RL landMask_loc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53	COMMON / CPL_EXCH_CONFIGS_LOC / landMask_loc
54	CEOP
55
56	errFlag = .FALSE.
57	errMsg = ' '
58
59	C- Get configuration information (=land/sea mask) from other pkg
60	CALL ATM_GET_ATMCONFIG(
61	O landMask_loc,
62	I myThid )
63
64	C- Post my configuration information to the coupler "layer".
65	CALL ATM_EXPORT_ATMCONFIG(
66	U errFlag,
67	I landMask_loc, myThid )
68
69	C- Import other component model(s) configuration(s) from the coupler "layer"
70	C o Get ocean model configuration
71	CALL ATM_IMPORT_OCNCONFIG( myThid )
72
73	C- Summarise coupling config set-up and check for inconsistency
74	_BARRIER
75	CALL ATM_CHECK_CPLCONFIG(
76	U errFlag, errMsg,
77	I landMask_loc, myThid )
78
79	C-- All procs in World check for error and stop if any
80	_BEGIN_MASTER( myThid )
81	CALL MITCPLR_ALL_CHECK( errFlag, errMsg )
82	_END_MASTER( myThid )
83
84	_BARRIER
85
86	RETURN
87	END