pkg/atm_ocn_coupler/cpl_recv_atm_fields.F

C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/cpl_recv_atm_fields.F,v 1.1 2004/05/21 19:31:49 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE CPL_RECV_ATM_FIELDS
C     /==========================================================\
C     | SUBROUTINE CPL_RECV_ATM_FIELDS                           |
C     | o Routine for receiving fluxes from atmos. component     |
C     |==========================================================|
C     | This version talks to the MITgcm general circulation     |
C     | model.                                                   |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ==
#include "ATMSIZE.h"
#include "ATMVARS.h"
#include "ATMIDS.h"

C     == Routine arguments ==

C     == Local variables ==

CEndOfInterface

C-    Receive Sea Level atmos. pressure from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmSLPrName, 
     I                       Nx_atm, Ny_atm, 
     O                       atmSLPr_atm )

C-    Receive (net) Heat Flux from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmHeatFluxName, 
     I                       Nx_atm, Ny_atm, 
     O                       HeatFlux_atm )

C-    Receive net shortwave radiation from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmQshortWaveName,
     I                       Nx_atm, Ny_atm,
     O                       qShortwave_atm   )

C-    Receive Zonal momentum flux from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmTauXName, 
     I                       Nx_atm, Ny_atm,
     O                       TauX_atm )

C-    Receive Meridional momentum flux from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmTauYName, 
     I                       Nx_atm, Ny_atm,
     O                       TauY_atm )

C-    Receive fresh water flux (=Evap-Precip) from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmEvMPrName,
     I                       Nx_atm, Ny_atm,
     O                       EvMPr_atm )

C-    Receive fresh water flux (=RunOff) from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmRunOffName,
     I                       Nx_atm, Ny_atm,
     O                       RunOff_atm )

C-    Receive Energy carried by RunOff from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmROEnFxName,
     I                       Nx_atm, Ny_atm,
     O                       ROEnFx_atm )

C-    Receive salt flux (<- sea-ice) from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmSaltFxName,
     I                       Nx_atm, Ny_atm,
     O                       SaltFlx_atm )

C-    Receive sea-ice mass from atmos. component
      CALL COUPRECV_R8TILES( atmCompName, atmSeaIceName,
     I                       Nx_atm, Ny_atm,
     O                       sIceMass_atm )

      RETURN
      END
1	jmc	1.1	C $Header: /u/gcmpack/MITgcm/pkg/aim_ocn_coupler/cpl_recv_atm_fields.F,v 1.1 2004/05/21 19:31:49 jmc Exp $
2			C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			CStartOfInterface
7			SUBROUTINE CPL_RECV_ATM_FIELDS
8			C /==========================================================\
9			C \| SUBROUTINE CPL_RECV_ATM_FIELDS \|
10			C \| o Routine for receiving fluxes from atmos. component \|
11			C \|==========================================================\|
12			C \| This version talks to the MITgcm general circulation \|
13			C \| model. \|
14			C \==========================================================/
15			IMPLICIT NONE
16
17			C == Global variables ==
18			#include "ATMSIZE.h"
19			#include "ATMVARS.h"
20			#include "ATMIDS.h"
21
22			C == Routine arguments ==
23
24			C == Local variables ==
25
26			CEndOfInterface
27
28			C- Receive Sea Level atmos. pressure from atmos. component
29			CALL COUPRECV_R8TILES( atmCompName, atmSLPrName,
30			I Nx_atm, Ny_atm,
31			O atmSLPr_atm )
32
33			C- Receive (net) Heat Flux from atmos. component
34			CALL COUPRECV_R8TILES( atmCompName, atmHeatFluxName,
35			I Nx_atm, Ny_atm,
36			O HeatFlux_atm )
37
38			C- Receive net shortwave radiation from atmos. component
39			CALL COUPRECV_R8TILES( atmCompName, atmQshortWaveName,
40			I Nx_atm, Ny_atm,
41			O qShortwave_atm )
42
43			C- Receive Zonal momentum flux from atmos. component
44			CALL COUPRECV_R8TILES( atmCompName, atmTauXName,
45			I Nx_atm, Ny_atm,
46			O TauX_atm )
47
48			C- Receive Meridional momentum flux from atmos. component
49			CALL COUPRECV_R8TILES( atmCompName, atmTauYName,
50			I Nx_atm, Ny_atm,
51			O TauY_atm )
52
53			C- Receive fresh water flux (=Evap-Precip) from atmos. component
54			CALL COUPRECV_R8TILES( atmCompName, atmEvMPrName,
55			I Nx_atm, Ny_atm,
56			O EvMPr_atm )
57
58			C- Receive fresh water flux (=RunOff) from atmos. component
59			CALL COUPRECV_R8TILES( atmCompName, atmRunOffName,
60			I Nx_atm, Ny_atm,
61			O RunOff_atm )
62
63			C- Receive Energy carried by RunOff from atmos. component
64			CALL COUPRECV_R8TILES( atmCompName, atmROEnFxName,
65			I Nx_atm, Ny_atm,
66			O ROEnFx_atm )
67
68			C- Receive salt flux (<- sea-ice) from atmos. component
69			CALL COUPRECV_R8TILES( atmCompName, atmSaltFxName,
70			I Nx_atm, Ny_atm,
71			O SaltFlx_atm )
72
73			C- Receive sea-ice mass from atmos. component
74			CALL COUPRECV_R8TILES( atmCompName, atmSeaIceName,
75			I Nx_atm, Ny_atm,
76			O sIceMass_atm )
77
78			RETURN
79			END