pkg/atm_compon_interf/atm_import_ocnconfig.F

3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
a9cdd26a43 Jean*0002
79e04e6111 Jean*0003 CBOP 0
                0004 C !ROUTINE: ATM_IMPORT_OCNCONFIG
                0005
                0006 C !INTERFACE:
a9cdd26a43 Jean*0007       SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid )
                0008
79e04e6111 Jean*0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE ATM_IMPORT_OCNCONFIG
3fd4b811ee Jean*0012 C     | o Routine for importing ocean config
                0013 C     |   into atmos. component.
79e04e6111 Jean*0014 C     *==========================================================*
                0015 C     | This version talks to the MIT Coupler. It uses the
                0016 C     | MIT Coupler "checkpoint 1" library calls.
                0017 C     *==========================================================*
                0018
                0019 C !USES:
                0020       IMPLICIT NONE
a9cdd26a43 Jean*0021 C     == Global variables ==
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
5a2fc21c93 Jean*0024 #include "ATMIDS.h"
a9cdd26a43 Jean*0025 #include "ATMCPL.h"
                0026
79e04e6111 Jean*0027 C !INPUT/OUTPUT PARAMETERS:
a9cdd26a43 Jean*0028 C     == Routine arguments ==
79e04e6111 Jean*0029 C     myThid :: Thread number for this instance of the routine
a9cdd26a43 Jean*0030       INTEGER myThid
79e04e6111 Jean*0031 CEOP
a9cdd26a43 Jean*0032
5a2fc21c93 Jean*0033 #ifdef COMPONENT_MODULE
3fd4b811ee Jean*0034 C !LOCAL VARIABLES:
5a2fc21c93 Jean*0035 C     == Local variables ==
3fd4b811ee Jean*0036 C     i,j,bi,bj :: Loop counters
5a2fc21c93 Jean*0037       INTEGER i,j,bi,bj
                0038
                0039 C-    Initialise mixed-layer depth
                0040       DO bj=myByLo(myThid),myByHi(myThid)
200d62b5ae Jean*0041        DO bi=myBxLo(myThid),myBxHi(myThid)
3fd4b811ee Jean*0042         DO j=1-OLy,sNy+OLy
                0043          DO i=1-OLx,sNx+OLx
5a2fc21c93 Jean*0044           ocMxlD (i,j,bi,bj) = 0.
                0045          ENDDO
                0046         ENDDO
                0047        ENDDO
                0048       ENDDO
                0049
3fd4b811ee Jean*0050 C-    Receive ocean model configuration info.
79e04e6111 Jean*0051       _BARRIER
                0052       _BEGIN_MASTER( myThid )
3fd4b811ee Jean*0053
                0054 C     o Import ocean model mixed-layer depth
79e04e6111 Jean*0055       CALL COMPRECV_R8TILES(
                0056      I              atmMxlDName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
                0057      O              ocMxlD )
3fd4b811ee Jean*0058
79e04e6111 Jean*0059       _END_MASTER( myThid )
                0060       _BARRIER
5a2fc21c93 Jean*0061
                0062 #endif /* COMPONENT_MODULE */
a9cdd26a43 Jean*0063
                0064       RETURN
                0065       END