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     Receive ocean config (OCNCONFIG) from ocean
C     component (OCN).
      CALL CPL_RECV_OCN_OCNCONFIG

      RETURN
      END

#endif

1	#include "ATM2D_OPTIONS.h"
2	#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
17	C Receive ocean config (OCNCONFIG) from ocean
18	C component (OCN).
19	CALL CPL_RECV_OCN_OCNCONFIG
20
21	RETURN
22	END
23
24	#endif
25