pkg/atm2d/cpl_send_ocn_atmconfig.F

09a6f3668a Jeff*0001 #include "ATM2D_OPTIONS.h"
                0002
1aa77e172a Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_SEND_OCN_ATMCONFIG
                0005
                0006 C !INTERFACE:
09a6f3668a Jeff*0007       SUBROUTINE CPL_SEND_OCN_ATMCONFIG
                0008
1aa77e172a 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 #ifdef ATM2D_MPI_ON
                0019 C !USES:
                0020       IMPLICIT NONE
09a6f3668a Jeff*0021 C     == Global variables ==
1aa77e172a Jean*0022 c#include "ATMSIZE.h"
                0023 c#include "ATMVARS.h"
                0024 #include "ATMIDS.h"
09a6f3668a Jeff*0025 #include "OCNSIZE.h"
                0026 #include "OCNVARS.h"
                0027 #include "OCNIDS.h"
                0028
1aa77e172a Jean*0029 C !INPUT/OUTPUT PARAMETERS:
                0030 C !LOCAL VARIABLES:
09a6f3668a Jeff*0031       INTEGER i,j
1aa77e172a Jean*0032 CEOP
                0033
                0034 C     Map atmos. depth map onto ocean grid
                0035 c     CALL ATM_TO_OCN_MAPXYR8(
                0036 c    I     Nx_atm, Ny_atm,
                0037 c    I     landMask_atm,
                0038 c    I     Nx_ocn, Ny_ocn,
                0039 c    O     landMask_ocn)
09a6f3668a Jeff*0040       DO i=1,Nx_ocn
                0041         DO j=1,Ny_ocn
1aa77e172a Jean*0042           landMask_ocn(i,j)= 0.5  !ocean code checks for this
09a6f3668a Jeff*0043         ENDDO
                0044       ENDDO
                0045
                0046 C     Send atmos. config to ocean component
1aa77e172a Jean*0047       CALL COUPSEND_R8TILES( ocnCompName, atmLandName, Nx_ocn, Ny_ocn,
                0048      &                       landMask_ocn )
                0049
                0050 #endif /* ATM2D_MPI_ON */
09a6f3668a Jeff*0051
                0052       RETURN
                0053       END