jscott/pkg_atm2d/receive_component_configs.F

#include "ATM2D_OPTIONS.h"
#ifdef ATM2D_MPI_ON

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