pkg/ocn_compon_interf/cpl_ini_vars.F

6bfee994e4 Jean*0001 #include "OCN_CPL_OPTIONS.h"
69e21e3ef0 Jean*0002
963aacc62a Jean*0003 CBOP
                0004 C     !ROUTINE: CPL_INI_VARS
                0005 C     !INTERFACE:
69e21e3ef0 Jean*0006       SUBROUTINE CPL_INI_VARS( myThid )
963aacc62a Jean*0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | S/R CPL_INI_VARS
                0011 C     | o Initialisation routine for arrays that are used to
                0012 C     |   buffer data that interfaces to the coupling layer.
                0013 C     | - Oceanic version -
                0014 C     *==========================================================*
                0015 C     \ev
                0016
                0017 C     !USES:
69e21e3ef0 Jean*0018       IMPLICIT NONE
                0019
                0020 C     == Global variables ==
                0021 #include "SIZE.h"
                0022 #include "EEPARAMS.h"
                0023 #include "PARAMS.h"
e596558d31 Jean*0024 #include "CPL_PARAMS.h"
69e21e3ef0 Jean*0025 #include "OCNCPL.h"
                0026
963aacc62a Jean*0027 C     !INPUT/OUTPUT PARAMETERS:
                0028 C     myThid :: my Thread Id Number
69e21e3ef0 Jean*0029       INTEGER myThid
                0030
e596558d31 Jean*0031 #ifdef COMPONENT_MODULE
963aacc62a Jean*0032 C     !LOCAL VARIABLES:
6bfee994e4 Jean*0033 C     i,j,bi,bj :: Loop counters
                0034       INTEGER i,j,bi,bj
b7411f1a84 Jean*0035 CEOP
69e21e3ef0 Jean*0036
                0037       DO bj=myByLo(myThid),myByHi(myThid)
d200a16830 Jean*0038        DO bi=myBxLo(myThid),myBxHi(myThid)
b7411f1a84 Jean*0039         DO j=1-OLy,sNy+OLy
                0040          DO i=1-OLx,sNx+OLx
e596558d31 Jean*0041 C.        Export fields
6bfee994e4 Jean*0042           ocMxlD2cpl(i,j,bi,bj) = 0.
                0043           SSTocn2cpl(i,j,bi,bj) = 0.
                0044           SSSocn2cpl(i,j,bi,bj) = 0.
                0045           vSqocn2cpl(i,j,bi,bj) = 0.
90578acae6 Jean*0046 #ifdef ALLOW_DIC
6bfee994e4 Jean*0047           fluxCO2cpl(i,j,bi,bj) = 0.
90578acae6 Jean*0048 #endif
                0049 C-        Import and/or export fields
                0050 #if (defined ALLOW_DIC) || (defined ALLOW_THSICE)
                0051           sIceFrac_cpl  (i,j,bi,bj) = 0.
                0052 #endif
                0053 #ifdef ALLOW_THSICE
                0054           sIceThick_cpl (i,j,bi,bj) = 0.
                0055           sIceSnowH_cpl (i,j,bi,bj) = 0.
                0056           sIceQ1_cpl    (i,j,bi,bj) = 0.
                0057           sIceQ2_cpl    (i,j,bi,bj) = 0.
                0058 #endif
e596558d31 Jean*0059 C-        Import fields
6bfee994e4 Jean*0060           atmSLPr   (i,j,bi,bj) = 0.
                0061           HeatFlux  (i,j,bi,bj) = 0.
                0062           qShortWave(i,j,bi,bj) = 0.
                0063           tauX      (i,j,bi,bj) = 0.
                0064           tauY      (i,j,bi,bj) = 0.
                0065           FWflux    (i,j,bi,bj) = 0.
                0066           iceSaltFlx(i,j,bi,bj) = 0.
                0067           seaIceMass(i,j,bi,bj) = 0.
90578acae6 Jean*0068 #ifdef ALLOW_SALT_PLUME
                0069           saltPlmFlx_cpl(i,j,bi,bj) = 0.
                0070 #endif
                0071 #ifdef ALLOW_DIC
                0072           RunOff_cpl(i,j,bi,bj) = 0.
6bfee994e4 Jean*0073           airCO2    (i,j,bi,bj) = 0.
                0074           surfWSpeed(i,j,bi,bj) = 0.
90578acae6 Jean*0075 #endif
69e21e3ef0 Jean*0076          ENDDO
                0077         ENDDO
                0078        ENDDO
                0079       ENDDO
                0080
963aacc62a Jean*0081       IF ( startTime.NE.baseTime .OR. nIter0.NE.0
                0082      &                   .OR. pickupSuff .NE. ' ' ) THEN
e596558d31 Jean*0083        CALL OCN_CPL_READ_PICKUP( nIter0, myThid )
69e21e3ef0 Jean*0084       ENDIF
                0085
e596558d31 Jean*0086 #endif /* COMPONENT_MODULE */
69e21e3ef0 Jean*0087
                0088       RETURN
                0089       END