pkg/aim_compon_interf/atm_import_ocnconfig.F

C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/atm_import_ocnconfig.F,v 1.3 2009/12/24 16:49:08 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP 0
C !ROUTINE: ATM_IMPORT_OCNCONFIG

C !INTERFACE:
      SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid )

C !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE ATM_IMPORT_OCNCONFIG
C     | o Routine for importing ocean config into atmos.
C     |   component.
C     *==========================================================*
C     | This version talks to the MIT Coupler. It uses the
C     | MIT Coupler "checkpoint 1" library calls.
C     *==========================================================*

C !USES:
      IMPLICIT NONE
C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "ATMIDS.h"
#include "ATMCPL.h"

C !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myThid :: Thread number for this instance of the routine
      INTEGER myThid
CEOP

#ifdef COMPONENT_MODULE
C     == Local variables ==
C     i,j,bi,bj - Loop counters
      INTEGER i,j,bi,bj

C-    Initialise mixed-layer depth
      DO bj=myByLo(myThid),myByHi(myThid)
       DO bi=myBxLo(myThid),myByLo(myThid)
        DO j=1-Oly,sNy+Oly
         DO i=1-Olx,sNx+Olx
          ocMxlD (i,j,bi,bj) = 0.
         ENDDO
        ENDDO
       ENDDO
      ENDDO

C     Receive ocean model configuration info.
C     o Import ocean model mixed-layer depth
      _BARRIER
      _BEGIN_MASTER( myThid )
      CALL COMPRECV_R8TILES(
     I              atmMxlDName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
     O              ocMxlD )
      _END_MASTER( myThid )
      _BARRIER

#endif /* COMPONENT_MODULE */

      RETURN
      END
1	jmc	1.4	C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/atm_import_ocnconfig.F,v 1.3 2009/12/24 16:49:08 jmc Exp $
2	jmc	1.2	C $Name: $
3	jmc	1.1
4			#include "CPP_OPTIONS.h"
5
6	jmc	1.3	CBOP 0
7			C !ROUTINE: ATM_IMPORT_OCNCONFIG
8
9			C !INTERFACE:
10	jmc	1.1	SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid )
11	jmc	1.3
12			C !DESCRIPTION:
13			C ==========================================================
14			C \| SUBROUTINE ATM_IMPORT_OCNCONFIG
15			C \| o Routine for importing ocean config into atmos.
16			C \| component.
17			C ==========================================================
18			C \| This version talks to the MIT Coupler. It uses the
19			C \| MIT Coupler "checkpoint 1" library calls.
20			C ==========================================================
21
22			C !USES:
23	jmc	1.1	IMPLICIT NONE
24			C == Global variables ==
25			#include "SIZE.h"
26			#include "EEPARAMS.h"
27	jmc	1.2	#include "ATMIDS.h"
28	jmc	1.1	#include "ATMCPL.h"
29
30	jmc	1.3	C !INPUT/OUTPUT PARAMETERS:
31	jmc	1.1	C == Routine arguments ==
32	jmc	1.3	C myThid :: Thread number for this instance of the routine
33	jmc	1.1	INTEGER myThid
34	jmc	1.3	CEOP
35	jmc	1.1
36	jmc	1.2	#ifdef COMPONENT_MODULE
37			C == Local variables ==
38			C i,j,bi,bj - Loop counters
39			INTEGER i,j,bi,bj
40
41			C- Initialise mixed-layer depth
42			DO bj=myByLo(myThid),myByHi(myThid)
43			DO bi=myBxLo(myThid),myByLo(myThid)
44			DO j=1-Oly,sNy+Oly
45			DO i=1-Olx,sNx+Olx
46			ocMxlD (i,j,bi,bj) = 0.
47			ENDDO
48			ENDDO
49			ENDDO
50			ENDDO
51
52	jmc	1.1	C Receive ocean model configuration info.
53	jmc	1.2	C o Import ocean model mixed-layer depth
54	jmc	1.3	_BARRIER
55			_BEGIN_MASTER( myThid )
56			CALL COMPRECV_R8TILES(
57			I atmMxlDName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
58			O ocMxlD )
59			_END_MASTER( myThid )
60			_BARRIER
61	jmc	1.2
62			#endif /* COMPONENT_MODULE */
63	jmc	1.1
64			RETURN
65			END