jscott/pkg_atm2d/receive_component_configs.F

C $ Header: $
C $ Name:   $
#ifdef ATM2D_MPI_ON
#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE RECEIVE_COMPONENT_CONFIGS
C     /==========================================================\
C     | SUBROUTINE RECEIVE_COMPONENT_CONFIGS                     |
C     | o Rotuine which controls receiving the configurations    |
C     |   of each of the component models.                       |
C     \==========================================================/
      IMPLICIT NONE

C     Data on ocean grid
#include "OCNSIZE.h"
#include "OCNVARS.h"
C     Data on atmos grid
Cjrs#include "ATMSIZE.h"
Cjrs#include "ATMVARS.h"

C     Receive ocean config (OCNCONFIG) from ocean
C     component (OCN).
      CALL CPL_RECV_OCN_OCNCONFIG

C     Receive atmos config (ATCONFIG) from atmos.
C     component (ATM).
Cjrs      CALL CPL_RECV_ATM_ATMCONFIG

      RETURN
      END

#endif

1	C $ Header: $
2	C $ Name: $
3	#ifdef ATM2D_MPI_ON
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE RECEIVE_COMPONENT_CONFIGS
8	C /==========================================================\
9	C \| SUBROUTINE RECEIVE_COMPONENT_CONFIGS \|
10	C \| o Rotuine which controls receiving the configurations \|
11	C \| of each of the component models. \|
12	C \==========================================================/
13	IMPLICIT NONE
14
15	C Data on ocean grid
16	#include "OCNSIZE.h"
17	#include "OCNVARS.h"
18	C Data on atmos grid
19	Cjrs#include "ATMSIZE.h"
20	Cjrs#include "ATMVARS.h"
21
22	C Receive ocean config (OCNCONFIG) from ocean
23	C component (OCN).
24	CALL CPL_RECV_OCN_OCNCONFIG
25
26	C Receive atmos config (ATCONFIG) from atmos.
27	C component (ATM).
28	Cjrs CALL CPL_RECV_ATM_ATMCONFIG
29
30	RETURN
31	END
32
33	#endif
34