pkg/atm_ocn_coupler/cpl_send_ocn_atmconfig.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
128d77e532 Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_SEND_OCN_ATMCONFIG
                0005
                0006 C !INTERFACE:
7f58e89433 Jean*0007       SUBROUTINE CPL_SEND_OCN_ATMCONFIG
                0008
128d77e532 Jean*0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE CPL_SEND_OCN_ATMCONFIG
                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 land/sea mask.
                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"
ae26b3189f Jean*0025 #include "OCNIDS.h"
7f58e89433 Jean*0026 #include "OCNSIZE.h"
                0027 #include "OCNVARS.h"
                0028
128d77e532 Jean*0029 C !INPUT/OUTPUT PARAMETERS:
                0030 C !LOCAL VARIABLES:
                0031 CEOP
7f58e89433 Jean*0032
ae26b3189f Jean*0033 C-    Map atmos. land-mask onto ocean grid
7f58e89433 Jean*0034       CALL ATM_TO_OCN_MAPXYR8(
128d77e532 Jean*0035      I     Nx_atm, Ny_atm,
                0036      I     landMask_atm,
7f58e89433 Jean*0037      I     Nx_ocn, Ny_ocn,
128d77e532 Jean*0038      O     landMask_ocn)
7f58e89433 Jean*0039
ae26b3189f Jean*0040 C-    Send atmos. config to ocean component
128d77e532 Jean*0041       CALL COUPSEND_R8TILES( ocnCompName, atmLandName, Nx_ocn, Ny_ocn,
                0042      &                       landMask_ocn )
7f58e89433 Jean*0043
                0044       RETURN
                0045       END