pkg/atm2d/cpl_send_ocn_fields.F

09a6f3668a Jeff*0001 #include "ATM2D_OPTIONS.h"
                0002 #ifdef ATM2D_MPI_ON
                0003
                0004 CStartOfInterface
                0005       SUBROUTINE CPL_SEND_OCN_FIELDS
                0006 C     /==========================================================\
                0007 C     | SUBROUTINE CPL_SEND_OCN_FIELDS                           |
                0008 C     | o Routine for sending surface flux to ocean component    |
                0009 C     |==========================================================|
                0010 C     | This version talks to the MITgcm general circulation     |
                0011 C     | model.                                                   |
                0012 C     \==========================================================/
                0013       IMPLICIT NONE
                0014
                0015 C     == Global variables ==
                0016 #include "OCNSIZE.h"
                0017 #include "OCNVARS.h"
                0018 #include "OCNIDS.h"
                0019
                0020 C     == Routine arguments ==
                0021
                0022 C     == Local variables ==
                0023
                0024 CEndOfInterface
                0025
                0026 C     Send Sea Level atmos. pressure to ocean component
9274434acc Jean*0027       CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,
09a6f3668a Jeff*0028      I                       Nx_ocn, Ny_ocn, atmSLPr_ocn )
                0029
                0030 C     Send (net) heatflux. to ocean component
9274434acc Jean*0031       CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,
09a6f3668a Jeff*0032      I                       Nx_ocn, Ny_ocn, HeatFlux_ocn )
                0033
                0034 C     Send net shortwave radiation to ocean component
9274434acc Jean*0035       CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,
09a6f3668a Jeff*0036      I                       Nx_ocn, Ny_ocn, qShortWave_ocn )
                0037
                0038 C     Send Zonal momentum flux to ocean component
9274434acc Jean*0039       CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,
09a6f3668a Jeff*0040      I                       Nx_ocn, Ny_ocn, TauX_ocn )
                0041
                0042 C     Send Meridional momentum flux to ocean component
9274434acc Jean*0043       CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,
09a6f3668a Jeff*0044      I                       Nx_ocn, Ny_ocn, TauY_ocn )
                0045
                0046 C     Send E-P-R to ocean component
9274434acc Jean*0047       CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,
09a6f3668a Jeff*0048      I                       Nx_ocn, Ny_ocn, FWFlux_ocn )
                0049
                0050 C     Send salt flux to ocean component
9274434acc Jean*0051       CALL COUPSEND_R8TILES( ocnCompName, ocnSaltFxName,
09a6f3668a Jeff*0052      I                       Nx_ocn, Ny_ocn, SaltFlx_ocn )
                0053
                0054 C     Send sea-ice mass to ocean component
9274434acc Jean*0055       CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,
09a6f3668a Jeff*0056      I                       Nx_ocn, Ny_ocn, sIceMass_ocn )
                0057
0b83645f94 Jeff*0058       IF ( ocnCpl_exchange_DIC ) THEN
                0059
                0060 C       Send atmos CO2 to ocean component
9274434acc Jean*0061         CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,
0b83645f94 Jeff*0062      I                       Nx_ocn, Ny_ocn, aCO2_ocn )
                0063
                0064 C       Send surface windspeed to ocean component
9274434acc Jean*0065         CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName,
0b83645f94 Jeff*0066      I                       Nx_ocn, Ny_ocn, wSpeed_ocn )
                0067
                0068 C       Send sea-ice fraction to ocean component
9274434acc Jean*0069         CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName,
0b83645f94 Jeff*0070      I                       Nx_ocn, Ny_ocn, SIceFrac_ocn )
                0071
9274434acc Jean*0072       ENDIF
                0073
09a6f3668a Jeff*0074       RETURN
                0075       END
                0076
                0077 #endif
                0078