pkg/atm_compon_interf/atm_export_atmconfig.F

3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
a9cdd26a43 Jean*0002
79e04e6111 Jean*0003 CBOP 0
                0004 C !ROUTINE: ATM_EXPORT_ATMCONFIG
                0005
                0006 C !INTERFACE:
a659e5f095 Jean*0007       SUBROUTINE ATM_EXPORT_ATMCONFIG(
                0008      U                      errFlag,
                0009      I                      landMask, myThid )
a9cdd26a43 Jean*0010
79e04e6111 Jean*0011 C !DESCRIPTION:
                0012 C     *==========================================================*
                0013 C     | SUBROUTINE ATM_EXPORT_ATMCONFIG
                0014 C     | o Routine for exporting atmos. config to coupling level.
                0015 C     *==========================================================*
                0016 C     | This version talks to the MIT Coupler. It uses the MIT
                0017 C     | Coupler "checkpoint1" library calls.
                0018 C     *==========================================================*
                0019
                0020 C !USES:
                0021       IMPLICIT NONE
a9cdd26a43 Jean*0022 C     == Global variables ==
                0023 #include "SIZE.h"
                0024 #include "EEPARAMS.h"
a659e5f095 Jean*0025 #include "PARAMS.h"
a9cdd26a43 Jean*0026 #include "ATMIDS.h"
a659e5f095 Jean*0027 c#include "ATMCPL.h"
                0028 #include "CPL_PARAMS.h"
a9cdd26a43 Jean*0029
79e04e6111 Jean*0030 C !INPUT/OUTPUT PARAMETERS:
a659e5f095 Jean*0031 C     errFlag  :: logical flag to report an error
                0032 C     landMask :: land / sea mask (=1 : full land; =0 : full ocean grid cell)
                0033 C     myThid   :: Thread number for this instance of the routine
                0034       LOGICAL errFlag
                0035       _RL landMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
a9cdd26a43 Jean*0036       INTEGER myThid
                0037
a659e5f095 Jean*0038 C !LOCAL VARIABLES:
                0039 C     msgBuf     :: Informational/error message buffer
                0040       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0041       INTEGER tmpFld(1)
                0042 CEOP
a9cdd26a43 Jean*0043
                0044 C     Send my configuration information to the coupler
79e04e6111 Jean*0045       _BARRIER
                0046       _BEGIN_MASTER( myThid )
a659e5f095 Jean*0047
                0048 C     o Send number of coupler time-steps to do for this run
                0049       IF ( MOD( nTimeSteps, cplSendFrq_iter ).NE.0 ) THEN
                0050         errFlag = .TRUE.
                0051         WRITE(msgBuf,'(2A)') 'ATM_EXPORT_ATMCONFIG: ',
                0052      &   '=> Length of run not a multiple of cpl_atmSendFrq'
                0053         CALL PRINT_ERROR( msgBuf, myThid )
                0054       ENDIF
                0055       tmpFld(1) = nTimeSteps/cplSendFrq_iter
                0056       CALL COMPSEND_I4VEC( 'nCouplingSteps', 1, tmpFld )
                0057
                0058 C     o Send atmos. land/sea mask
79e04e6111 Jean*0059       CALL COMPSEND_R8TILES(
a659e5f095 Jean*0060      I              atmLandName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
                0061      I              landMask )
                0062
79e04e6111 Jean*0063       _END_MASTER( myThid )
                0064       _BARRIER
a9cdd26a43 Jean*0065
                0066       RETURN
                0067       END