pkg/ocn_compon_interf/ocn_export_fields.F

C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/ocn_export_sst.F,v 1.1 2003/12/15 02:49:09 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE OCN_EXPORT_FIELDS( myThid )
C     /==========================================================\
C     | SUBROUTINE OCN_EXPORT_FIELDS                             |
C     | o Routine for exporting oceanic fields                   |
C     |   to the 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 "OCNIDS.h"
#include "OCNCPL.h"

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

C     == Local variables ==

C-    Send Oceanic fields to coupling layer
C  Note: 1) Information is sent on the ocean model grid.
C        2) MIT Coupler checkpoint1 does not allow asynchronous posting of
C          data, so ordering has to be consistent with coupling layer ordering

C-    Send Ocean mixed-layer depth to coupling layer
      CALL COMPSEND_R8TILES( ocnMxlDName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, ocMxlD2cpl )

C-    Send sea-surface temperature to coupling layer
      CALL COMPSEND_R8TILES( ocnSSTName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, SSTocn2cpl )

C-    Send sea-surface salinity to coupling layer
      CALL COMPSEND_R8TILES( ocnSSSName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, SSSocn2cpl )

C-    Send ocean surface velocity square to coupling layer
      CALL COMPSEND_R8TILES( ocnSSVsqName,
     I     sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn2cpl )

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/ocn_export_sst.F,v 1.1 2003/12/15 02:49:09 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE OCN_EXPORT_FIELDS( myThid )
8	C /==========================================================\
9	C \| SUBROUTINE OCN_EXPORT_FIELDS \|
10	C \| o Routine for exporting oceanic fields \|
11	C \| to the 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 "OCNIDS.h"
22	#include "OCNCPL.h"
23
24	C == Routine arguments ==
25	C myThid - Thread number for this instance of the routine
26	INTEGER myThid
27	CEndOfInterface
28
29	C == Local variables ==
30
31	C- Send Oceanic fields to coupling layer
32	C Note: 1) Information is sent on the ocean model grid.
33	C 2) MIT Coupler checkpoint1 does not allow asynchronous posting of
34	C data, so ordering has to be consistent with coupling layer ordering
35
36	C- Send Ocean mixed-layer depth to coupling layer
37	CALL COMPSEND_R8TILES( ocnMxlDName,
38	I sNx, OLx, sNy, OLy, 1, nSx, nSy, ocMxlD2cpl )
39
40	C- Send sea-surface temperature to coupling layer
41	CALL COMPSEND_R8TILES( ocnSSTName,
42	I sNx, OLx, sNy, OLy, 1, nSx, nSy, SSTocn2cpl )
43
44	C- Send sea-surface salinity to coupling layer
45	CALL COMPSEND_R8TILES( ocnSSSName,
46	I sNx, OLx, sNy, OLy, 1, nSx, nSy, SSSocn2cpl )
47
48	C- Send ocean surface velocity square to coupling layer
49	CALL COMPSEND_R8TILES( ocnSSVsqName,
50	I sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn2cpl )
51
52	RETURN
53	END