jscott/pkg_atm2d/cpl_send_ocn_fields.F

#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 )

      RETURN
      END

#endif

1	jscott	1.2	#include "ATM2D_OPTIONS.h"
2	jscott	1.1	#ifdef ATM2D_MPI_ON
3
4			CStartOfInterface
5			SUBROUTINE CPL_SEND_OCN_FIELDS
6			C /==========================================================\
7			C \| SUBROUTINE CPL_SEND_OCN_FIELDS \|
8			C \| o Routine for sending surface flux to ocean component \|
9			C \|==========================================================\|
10			C \| This version talks to the MITgcm general circulation \|
11			C \| model. \|
12			C \==========================================================/
13			IMPLICIT NONE
14
15			C == Global variables ==
16			#include "OCNSIZE.h"
17			#include "OCNVARS.h"
18			#include "OCNIDS.h"
19
20			C == Routine arguments ==
21
22			C == Local variables ==
23
24			CEndOfInterface
25
26			C Send Sea Level atmos. pressure to ocean component
27			CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,
28			I Nx_ocn, Ny_ocn, atmSLPr_ocn )
29
30			C Send (net) heatflux. to ocean component
31			CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,
32			I Nx_ocn, Ny_ocn, HeatFlux_ocn )
33
34			C Send net shortwave radiation to ocean component
35			CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,
36			I Nx_ocn, Ny_ocn, qShortWave_ocn )
37
38			C Send Zonal momentum flux to ocean component
39			CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,
40			I Nx_ocn, Ny_ocn, TauX_ocn )
41
42			C Send Meridional momentum flux to ocean component
43			CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,
44			I Nx_ocn, Ny_ocn, TauY_ocn )
45
46			C Send E-P-R to ocean component
47			CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,
48			I Nx_ocn, Ny_ocn, FWFlux_ocn )
49
50			C Send salt flux to ocean component
51			CALL COUPSEND_R8TILES( ocnCompName, ocnSaltFxName,
52			I Nx_ocn, Ny_ocn, SaltFlx_ocn )
53
54			C Send sea-ice mass to ocean component
55			CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,
56			I Nx_ocn, Ny_ocn, sIceMass_ocn )
57
58			RETURN
59			END
60
61			#endif
62