pkg/atm_compon_interf/cpl_ini_vars.F

3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
a9cdd26a43 Jean*0002
4ff1cd5702 Jean*0003 CBOP
                0004 C     !ROUTINE: CPL_INI_VARS
                0005 C     !INTERFACE:
a9cdd26a43 Jean*0006       SUBROUTINE CPL_INI_VARS( myThid )
4ff1cd5702 Jean*0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE 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     | - Atmospheric version -
                0014 C     *==========================================================*
                0015 C     \ev
                0016
                0017 C     !USES:
a9cdd26a43 Jean*0018       IMPLICIT NONE
                0019
                0020 C     == Global variables ==
                0021 #include "SIZE.h"
                0022 #include "EEPARAMS.h"
                0023 #include "PARAMS.h"
                0024 #include "GRID.h"
5a2fc21c93 Jean*0025 #include "CPL_PARAMS.h"
a9cdd26a43 Jean*0026 #include "ATMCPL.h"
                0027
4ff1cd5702 Jean*0028 C     !INPUT/OUTPUT PARAMETERS:
                0029 C     myThid :: Thread number for this instance of the routine
a9cdd26a43 Jean*0030       INTEGER myThid
                0031
5a2fc21c93 Jean*0032 #ifdef COMPONENT_MODULE
b7411f1a84 Jean*0033 C     !LOCAL VARIABLES:
3fd4b811ee Jean*0034 C     i,j,bi,bj :: Loop counters
                0035       INTEGER i,j,bi,bj
b7411f1a84 Jean*0036 CEOP
a9cdd26a43 Jean*0037
                0038       DO bj=myByLo(myThid),myByHi(myThid)
200d62b5ae Jean*0039        DO bi=myBxLo(myThid),myBxHi(myThid)
b7411f1a84 Jean*0040         DO j=1-OLy,sNy+OLy
                0041          DO i=1-OLx,sNx+OLx
5a2fc21c93 Jean*0042 C-        Export field
c121b6d611 Jean*0043           atmSLPr       (i,j,bi,bj) = 0.
                0044           HeatFlux      (i,j,bi,bj) = 0.
                0045           qShortWave    (i,j,bi,bj) = 0.
                0046           tauX          (i,j,bi,bj) = 0.
                0047           tauY          (i,j,bi,bj) = 0.
                0048           EvMPrFlux     (i,j,bi,bj) = 0.
                0049 #ifdef ALLOW_LAND
                0050           RunOffFlux    (i,j,bi,bj) = 0.
                0051           RunOffEnFx    (i,j,bi,bj) = 0.
                0052 #endif /* ALLOW_LAND */
                0053 #ifdef ALLOW_THSICE
                0054           iceSaltFlx    (i,j,bi,bj) = 0.
                0055           seaIceMass    (i,j,bi,bj) = 0.
                0056           saltPlmFlx_cpl(i,j,bi,bj) = 0.
                0057 #endif /* ALLOW_THSICE */
                0058 #ifdef ALLOW_AIM
                0059           airCO2        (i,j,bi,bj) = 0.
                0060           sWSpeed       (i,j,bi,bj) = 0.
                0061 #endif /* ALLOW_AIM */
                0062 #ifdef ALLOW_THSICE
                0063           sIceFrac_cpl  (i,j,bi,bj) = 0.
                0064           sIceThick_cpl (i,j,bi,bj) = 0.
                0065           sIceSnowH_cpl (i,j,bi,bj) = 0.
                0066           sIceQ1_cpl    (i,j,bi,bj) = 0.
                0067           sIceQ2_cpl    (i,j,bi,bj) = 0.
                0068 #endif /* ALLOW_THSICE */
5a2fc21c93 Jean*0069 C-        Import field
c121b6d611 Jean*0070 c         ocMxlD        (i,j,bi,bj) = 0.
                0071           SSTocn        (i,j,bi,bj) = 0.
                0072           SSSocn        (i,j,bi,bj) = 0.
                0073           vSqocn        (i,j,bi,bj) = 0.
                0074 #ifdef ALLOW_AIM
                0075           flxCO2ocn     (i,j,bi,bj) = 0.
                0076 #endif /* ALLOW_AIM */
a9cdd26a43 Jean*0077          ENDDO
                0078         ENDDO
c121b6d611 Jean*0079         atmSLPrTime   (bi,bj) = 0.
                0080         HeatFluxTime  (bi,bj) = 0.
5a2fc21c93 Jean*0081         qShortwaveTime(bi,bj) = 0.
c121b6d611 Jean*0082         tauXTime      (bi,bj) = 0.
                0083         tauYTime      (bi,bj) = 0.
                0084         EvMPrTime     (bi,bj) = 0.
                0085 #ifdef ALLOW_LAND
                0086         RunOffTime    (bi,bj) = 0.
                0087         ROEnFxTime    (bi,bj) = 0.
                0088 #endif
                0089 #ifdef ALLOW_THSICE
                0090         saltFxTime    (bi,bj) = 0.
                0091         sIceMassTime  (bi,bj) = 0.
                0092         saltPlmFlxTime(bi,bj) = 0.
                0093 #endif
                0094 #ifdef ALLOW_AIM
                0095         airCO2Time    (bi,bj) = 0.
                0096         sWSpeedTime   (bi,bj) = 0.
                0097 #endif /* ALLOW_AIM */
                0098 #ifdef ALLOW_THSICE
                0099         sIceFracTime  (bi,bj) = 0.
                0100         sIceThickTime (bi,bj) = 0.
                0101         sIceSnowHTime (bi,bj) = 0.
                0102         sIceQ1Time    (bi,bj) = 0.
                0103         sIceQ2Time    (bi,bj) = 0.
                0104 #endif
a9cdd26a43 Jean*0105        ENDDO
                0106       ENDDO
                0107
391a25579e Jean*0108       IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN
5a2fc21c93 Jean*0109        CALL ATM_CPL_READ_PICKUP( nIter0, myThid )
a9cdd26a43 Jean*0110       ENDIF
                0111
5a2fc21c93 Jean*0112 #endif /* COMPONENT_MODULE */
                0113
a9cdd26a43 Jean*0114       RETURN
                0115       END