pkg/atm2d/cpl_send_ocn_fields.F

C $Header:  $
C $Name:  $

#include "ATM2D_OPTIONS.h"
#ifdef ATM2D_MPI_ON

CStartOfInterface
      SUBROUTINE CPL_SEND_OCN_FIELDS
C     /==========================================================\
C     | SUBROUTINE CPL_SEND_OCN_FIELDS                           |
C     | o Routine for sending surface flux to ocean component    |
C     |==========================================================|
C     | This version talks to the MITgcm general circulation     |
C     | model.                                                   |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ==
#include "OCNSIZE.h"
#include "OCNVARS.h"
#include "OCNIDS.h"

C     == Routine arguments ==

C     == Local variables ==

CEndOfInterface

C     Send Sea Level atmos. pressure to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,
     I                       Nx_ocn, Ny_ocn, atmSLPr_ocn )

C     Send (net) heatflux. to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,
     I                       Nx_ocn, Ny_ocn, HeatFlux_ocn )

C     Send net shortwave radiation to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,
     I                       Nx_ocn, Ny_ocn, qShortWave_ocn )

C     Send Zonal momentum flux to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,
     I                       Nx_ocn, Ny_ocn, TauX_ocn )

C     Send Meridional momentum flux to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,
     I                       Nx_ocn, Ny_ocn, TauY_ocn )

C     Send E-P-R to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,
     I                       Nx_ocn, Ny_ocn, FWFlux_ocn )

C     Send salt flux to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnSaltFxName,
     I                       Nx_ocn, Ny_ocn, SaltFlx_ocn )

C     Send sea-ice mass to ocean component
      CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,
     I                       Nx_ocn, Ny_ocn, sIceMass_ocn )

      IF ( ocnCpl_exchange_DIC ) THEN

C       Send atmos CO2 to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,
     I                       Nx_ocn, Ny_ocn, aCO2_ocn )

C       Send surface windspeed to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName,
     I                       Nx_ocn, Ny_ocn, wSpeed_ocn )

C       Send sea-ice fraction to ocean component
        CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName,
     I                       Nx_ocn, Ny_ocn, SIceFrac_ocn )

      ENDIF

      RETURN
      END

#endif

1	C $Header: $
2	C $Name: $
3
4	#include "ATM2D_OPTIONS.h"
5	#ifdef ATM2D_MPI_ON
6
7	CStartOfInterface
8	SUBROUTINE CPL_SEND_OCN_FIELDS
9	C /==========================================================\
10	C \| SUBROUTINE CPL_SEND_OCN_FIELDS \|
11	C \| o Routine for sending surface flux to ocean component \|
12	C \|==========================================================\|
13	C \| This version talks to the MITgcm general circulation \|
14	C \| model. \|
15	C \==========================================================/
16	IMPLICIT NONE
17
18	C == Global variables ==
19	#include "OCNSIZE.h"
20	#include "OCNVARS.h"
21	#include "OCNIDS.h"
22
23	C == Routine arguments ==
24
25	C == Local variables ==
26
27	CEndOfInterface
28
29	C Send Sea Level atmos. pressure to ocean component
30	CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,
31	I Nx_ocn, Ny_ocn, atmSLPr_ocn )
32
33	C Send (net) heatflux. to ocean component
34	CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,
35	I Nx_ocn, Ny_ocn, HeatFlux_ocn )
36
37	C Send net shortwave radiation to ocean component
38	CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,
39	I Nx_ocn, Ny_ocn, qShortWave_ocn )
40
41	C Send Zonal momentum flux to ocean component
42	CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,
43	I Nx_ocn, Ny_ocn, TauX_ocn )
44
45	C Send Meridional momentum flux to ocean component
46	CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,
47	I Nx_ocn, Ny_ocn, TauY_ocn )
48
49	C Send E-P-R to ocean component
50	CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,
51	I Nx_ocn, Ny_ocn, FWFlux_ocn )
52
53	C Send salt flux to ocean component
54	CALL COUPSEND_R8TILES( ocnCompName, ocnSaltFxName,
55	I Nx_ocn, Ny_ocn, SaltFlx_ocn )
56
57	C Send sea-ice mass to ocean component
58	CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,
59	I Nx_ocn, Ny_ocn, sIceMass_ocn )
60
61	IF ( ocnCpl_exchange_DIC ) THEN
62
63	C Send atmos CO2 to ocean component
64	CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,
65	I Nx_ocn, Ny_ocn, aCO2_ocn )
66
67	C Send surface windspeed to ocean component
68	CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName,
69	I Nx_ocn, Ny_ocn, wSpeed_ocn )
70
71	C Send sea-ice fraction to ocean component
72	CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName,
73	I Nx_ocn, Ny_ocn, SIceFrac_ocn )
74
75	ENDIF
76
77	RETURN
78	END
79
80	#endif
81