pkg/ocn_compon_interf/ocn_export_ocnconfig.F

6bfee994e4 Jean*0001 #include "OCN_CPL_OPTIONS.h"
69e21e3ef0 Jean*0002
79e04e6111 Jean*0003 CBOP 0
                0004 C !ROUTINE: OCN_EXPORT_OCNCONFIG
                0005
                0006 C !INTERFACE:
69e21e3ef0 Jean*0007       SUBROUTINE OCN_EXPORT_OCNCONFIG( myThid )
                0008
79e04e6111 Jean*0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE OCN_EXPORT_OCNCONFIG
                0012 C     | o Routine for exporting ocean config to coupling level.
                0013 C     *==========================================================*
                0014 C     | This version talks to the MIT Coupler. It uses the MIT
                0015 C     | Coupler "checkpoint1" library calls.
                0016 C     *==========================================================*
                0017
                0018 C !USES:
                0019       IMPLICIT NONE
69e21e3ef0 Jean*0020 C     == Global variables ==
                0021 #include "SIZE.h"
                0022 #include "EEPARAMS.h"
e596558d31 Jean*0023 #include "PARAMS.h"
69e21e3ef0 Jean*0024 #include "GRID.h"
                0025 #include "OCNIDS.h"
1a1199da4c Jean*0026 #include "OCNCPL.h"
69e21e3ef0 Jean*0027
79e04e6111 Jean*0028 C !INPUT/OUTPUT PARAMETERS:
69e21e3ef0 Jean*0029 C     == Routine arguments ==
79e04e6111 Jean*0030 C     myThid :: Thread number for this instance of the routine
69e21e3ef0 Jean*0031       INTEGER myThid
                0032
1a1199da4c Jean*0033 C !LOCAL VARIABLES:
e596558d31 Jean*0034       INTEGER i,j,bi,bj
1a1199da4c Jean*0035       INTEGER tmpFld(1)
                0036 CEOP
e596558d31 Jean*0037
                0038       DO bj = myByLo(myThid), myByHi(myThid)
                0039        DO bi = myBxLo(myThid), myBxHi(myThid)
1a1199da4c Jean*0040         DO j=1-OLy,sNy+OLy
                0041          DO i=1-OLx,sNx+OLx
79e04e6111 Jean*0042           ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
e596558d31 Jean*0043          ENDDO
                0044         ENDDO
                0045        ENDDO
                0046       ENDDO
69e21e3ef0 Jean*0047
                0048 C     Send my configuration information to the coupler
79e04e6111 Jean*0049       _BARRIER
                0050       _BEGIN_MASTER( myThid )
1a1199da4c Jean*0051
                0052 C     o Send number of coupler time-steps to do for this run
                0053       tmpFld(1) = nTimeSteps
                0054       CALL COMPSEND_I4VEC( 'nCouplingSteps', 1, tmpFld )
                0055
                0056 C     o Send ocean model bathymetry map
79e04e6111 Jean*0057       CALL COMPSEND_R8TILES(
                0058      I              ocnMxlDName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
                0059      I              ocMxlD2cpl )
1a1199da4c Jean*0060
79e04e6111 Jean*0061       _END_MASTER( myThid )
                0062       _BARRIER
69e21e3ef0 Jean*0063
                0064       RETURN
                0065       END