jscott/pkg_atm2d/sendout_component_configs.F

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

CStartOfInterface
      SUBROUTINE SENDOUT_COMPONENT_CONFIGS
C     /==========================================================\
C     | SUBROUTINE SENDOUT_COMPONENT_CONFIGS                     |
C     | o Rotuine which controls distribution of component model |
C     |   configuration information to other components.         |
C     \==========================================================/
      IMPLICIT NONE

C     Send atmos. config (ATMCONFIG) to ocean
C     component (OCN).
      CALL CPL_SEND_OCN_ATMCONFIG

C     Send ocean config (OCNCONFIG) to atmos.
C     component (ATM).
CJRS      CALL CPL_SEND_ATM_OCNCONFIG

      RETURN
      END

#endif
1	C $ Header: $
2	C $ Name: $
3	#ifdef ATM2D_MPI_ON
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE SENDOUT_COMPONENT_CONFIGS
8	C /==========================================================\
9	C \| SUBROUTINE SENDOUT_COMPONENT_CONFIGS \|
10	C \| o Rotuine which controls distribution of component model \|
11	C \| configuration information to other components. \|
12	C \==========================================================/
13	IMPLICIT NONE
14
15	C Send atmos. config (ATMCONFIG) to ocean
16	C component (OCN).
17	CALL CPL_SEND_OCN_ATMCONFIG
18
19	C Send ocean config (OCNCONFIG) to atmos.
20	C component (ATM).
21	CJRS CALL CPL_SEND_ATM_OCNCONFIG
22
23	RETURN
24	END
25
26	#endif