pkg/aim_compon_interf/atm_import_fields.F

C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/atm_import_sst.F,v 1.1 2003/12/15 02:44:48 jmc Exp $
C $Name:  $  

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE ATM_IMPORT_FIELDS( myThid )
C     /==========================================================\
C     | SUBROUTINE ATM_IMPORT_SST                                |
C     | o Routine for importing ocean surface coupling fields    |
C     |   from coupling layer.                                   |
C     |==========================================================|
C     | This version talks to the MIT Coupler. It uses the MIT   |
C     | Coupler "checkpoint1" library calls.                     |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "ATMCPL.h"
#include "ATMIDS.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine
      INTEGER myThid
CEndOfInterface

#ifdef COMPONENT_MODULE
C     == Local variables ==

C     Fetch data from coupling layer. Note MIT Coupler checkpoint1
C     does not allow asynchronous extraction of data, so ordering
C     has to be consistent with ordering coupling layer.

C-    Receive ocean mixed-layer thickness from coupling layer.
      CALL COMPRECV_R8TILES( atmMxlDName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, ocMxlD )

C-    Receive ocean surface temperatures from coupling layer.
      CALL COMPRECV_R8TILES( atmSSTName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, SSTocn )

C-    Receive ocean surface salinity from coupling layer.
      CALL COMPRECV_R8TILES( atmSSSName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, SSSocn )

C-    Receive ocean surface velocity square from coupling layer.
      CALL COMPRECV_R8TILES( atmSSVsqName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn )

#endif /* COMPONENT_MODULE */

      RETURN
      END
1	jmc	1.1	C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/atm_import_sst.F,v 1.1 2003/12/15 02:44:48 jmc Exp $
2			C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			CStartOfInterface
7			SUBROUTINE ATM_IMPORT_FIELDS( myThid )
8			C /==========================================================\
9			C \| SUBROUTINE ATM_IMPORT_SST \|
10			C \| o Routine for importing ocean surface coupling fields \|
11			C \| from coupling layer. \|
12			C \|==========================================================\|
13			C \| This version talks to the MIT Coupler. It uses the MIT \|
14			C \| Coupler "checkpoint1" library calls. \|
15			C \==========================================================/
16			IMPLICIT NONE
17
18			C == Global variables ==
19			#include "SIZE.h"
20			#include "EEPARAMS.h"
21			#include "ATMCPL.h"
22			#include "ATMIDS.h"
23
24			C == Routine arguments ==
25			C myThid - Thread number for this instance of the routine
26			INTEGER myThid
27			CEndOfInterface
28
29			#ifdef COMPONENT_MODULE
30			C == Local variables ==
31
32			C Fetch data from coupling layer. Note MIT Coupler checkpoint1
33			C does not allow asynchronous extraction of data, so ordering
34			C has to be consistent with ordering coupling layer.
35
36			C- Receive ocean mixed-layer thickness from coupling layer.
37			CALL COMPRECV_R8TILES( atmMxlDName,
38			I sNx, OLx, sNy, OLy, 1, nSx, nSy, ocMxlD )
39
40			C- Receive ocean surface temperatures from coupling layer.
41			CALL COMPRECV_R8TILES( atmSSTName,
42			I sNx, OLx, sNy, OLy, 1, nSx, nSy, SSTocn )
43
44			C- Receive ocean surface salinity from coupling layer.
45			CALL COMPRECV_R8TILES( atmSSSName,
46			I sNx, OLx, sNy, OLy, 1, nSx, nSy, SSSocn )
47
48			C- Receive ocean surface velocity square from coupling layer.
49			CALL COMPRECV_R8TILES( atmSSVsqName,
50			I sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn )
51
52			#endif /* COMPONENT_MODULE */
53
54			RETURN
55			END