pkg/atm_ocn_coupler/cpl_send_atm_ocnconfig.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
128d77e532 Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_SEND_ATM_OCNCONFIG
                0005
                0006 C !INTERFACE:
7f58e89433 Jean*0007       SUBROUTINE CPL_SEND_ATM_OCNCONFIG
                0008
128d77e532 Jean*0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE CPL_SEND_ATM_OCNCONFIG
                0012 C     | o Routine for sending atmos. config to ocean component.
                0013 C     *==========================================================*
                0014 C     | This version talks to the MITgcm general circulation
                0015 C     | model. For now just send atmosphere depths.
                0016 C     *==========================================================*
                0017
                0018 C !USES:
                0019       IMPLICIT NONE
7f58e89433 Jean*0020 C     == Global variables ==
ae26b3189f Jean*0021 c#include "CPL_PARAMS.h"
                0022 #include "ATMIDS.h"
7f58e89433 Jean*0023 #include "ATMSIZE.h"
                0024 #include "ATMVARS.h"
                0025 #include "OCNSIZE.h"
                0026 #include "OCNVARS.h"
                0027
128d77e532 Jean*0028 C !INPUT/OUTPUT PARAMETERS:
                0029 C !LOCAL VARIABLES:
                0030 CEOP
7f58e89433 Jean*0031
ae26b3189f Jean*0032 C-    Map ocean depth map onto atmos. grid
7f58e89433 Jean*0033       CALL OCN_TO_ATM_MAPXYR8(
128d77e532 Jean*0034      I     Nx_ocn, Ny_ocn,
                0035      I     OcMxlD_ocn,
7f58e89433 Jean*0036      I     Nx_atm, Ny_atm,
                0037      O     OcMxlD_atm)
                0038
ae26b3189f Jean*0039 C-    Send ocean config to atmos. component
128d77e532 Jean*0040       CALL COUPSEND_R8TILES( atmCompName, atmMxlDName, Nx_atm, Ny_atm,
7f58e89433 Jean*0041      &                       OcMxlD_atm )
                0042
                0043       RETURN
                0044       END