pkg/dic/dic_store_fluxco2.F

cdaaeac08c Davi*0001 #include "DIC_OPTIONS.h"
                0002
                0003 CStartOfInterface
710a9031d0 Jean*0004       SUBROUTINE DIC_STORE_FLUXCO2(  myTime,
                0005      I                               myIter,
cdaaeac08c Davi*0006      I                               myThid )
710a9031d0 Jean*0007 C     *==========================================================*
cdaaeac08c Davi*0008 C     | SUBROUTINE DIC_STORE_FLUXCO2                             |
                0009 C     | o Routine for controlling storage of air-sea CO2 flux to |
                0010 C     |   to the coupling layer.                                 |
710a9031d0 Jean*0011 C     |==========================================================*
cdaaeac08c Davi*0012 C     | This version talks to the MIT Coupler. It uses the MIT   |
                0013 C     | Coupler "checkpoint1" library calls.                     |
710a9031d0 Jean*0014 C     *==========================================================*
cdaaeac08c Davi*0015       IMPLICIT NONE
                0016
                0017 C     == Global variables ==
                0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
                0021 C     == DIC variables
                0022 #include "DIC_VARS.h"
                0023 #ifdef COMPONENT_MODULE
                0024 C     == Global variables for coupling interface ==
0d4d059131 Jean*0025 # include "CPL_PARAMS.h"
                0026 # include "OCNCPL.h"
cdaaeac08c Davi*0027 #endif
                0028
                0029 C     == Routine arguments ==
710a9031d0 Jean*0030 C     myThid :: Thread number for this instance of the routine
                0031 C     myIter :: Current timestep number
                0032 C     myTime :: Current model time
cdaaeac08c Davi*0033       _RL     myTime
                0034       INTEGER myIter
                0035       INTEGER myThid
                0036 CEndOfInterface
                0037
                0038 #ifdef COMPONENT_MODULE
                0039 C     == Local variables ==
710a9031d0 Jean*0040 C     i,j    :: Loop counters
                0041 C     bi,bj  :: Tile index
cdaaeac08c Davi*0042       INTEGER i,j,bi,bj
                0043
071fa694ec Jean*0044       IF ( ocn_cplExch_DIC ) THEN
cdaaeac08c Davi*0045        DO bj=myByLo(myThid),myByHi(myThid)
                0046         DO bi=myBxLo(myThid),myBxHi(myThid)
                0047          DO j=1,sNy
                0048           DO i=1,sNx
                0049             fluxCO2cpl(i,j,bi,bj) = fluxCO2(i,j,bi,bj)
                0050           ENDDO
                0051          ENDDO
                0052         ENDDO
                0053        ENDDO
                0054       ENDIF
                0055
                0056 #endif /* COMPONENT_MODULE */
                0057
                0058       RETURN
                0059       END