jscott/pkg_atm2d/sendout_component_configs.F

#include "ATM2D_OPTIONS.h"
#ifdef ATM2D_MPI_ON

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

      RETURN
      END

#endif
1	#include "ATM2D_OPTIONS.h"
2	#ifdef ATM2D_MPI_ON
3
4	CStartOfInterface
5	SUBROUTINE SENDOUT_COMPONENT_CONFIGS
6	C /==========================================================\
7	C \| SUBROUTINE SENDOUT_COMPONENT_CONFIGS \|
8	C \| o Rotuine which controls distribution of component model \|
9	C \| configuration information to other components. \|
10	C \==========================================================/
11	IMPLICIT NONE
12
13	C Send atmos. config (ATMCONFIG) to ocean
14	C component (OCN).
15	CALL CPL_SEND_OCN_ATMCONFIG
16
17	RETURN
18	END
19
20	#endif