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     | For now this routine sets these arrays to the right
                0016 C     | state for an initial start-up. Eventually it should
                0017 C     | include some way to load this data from non-volatile
                0018 C     | external storage if they are needed during a restart.
                0019 C     *==========================================================*
                0020 C     \ev
                0021
                0022 C     !USES:
a9cdd26a43 Jean*0023       IMPLICIT NONE
                0024
                0025 C     == Global variables ==
                0026 #include "SIZE.h"
                0027 #include "EEPARAMS.h"
                0028 #include "PARAMS.h"
                0029 #include "GRID.h"
5a2fc21c93 Jean*0030 #include "CPL_PARAMS.h"
a9cdd26a43 Jean*0031 #include "ATMCPL.h"
                0032
4ff1cd5702 Jean*0033 C     !INPUT/OUTPUT PARAMETERS:
a9cdd26a43 Jean*0034 C     == Routine arguments ==
4ff1cd5702 Jean*0035 C     myThid :: Thread number for this instance of the routine
a9cdd26a43 Jean*0036       INTEGER myThid
4ff1cd5702 Jean*0037 CEOP
a9cdd26a43 Jean*0038
5a2fc21c93 Jean*0039 #ifdef COMPONENT_MODULE
a9cdd26a43 Jean*0040 C     == Local variables ==
3fd4b811ee Jean*0041 C     i,j,bi,bj :: Loop counters
                0042       INTEGER i,j,bi,bj
a9cdd26a43 Jean*0043
                0044       DO bj=myByLo(myThid),myByHi(myThid)
200d62b5ae Jean*0045        DO bi=myBxLo(myThid),myBxHi(myThid)
3fd4b811ee Jean*0046         DO J=1-OLy,sNy+OLy
                0047          DO I=1-OLx,sNx+OLx
5a2fc21c93 Jean*0048 C-        Export field
c121b6d611 Jean*0049           atmSLPr       (i,j,bi,bj) = 0.
                0050           HeatFlux      (i,j,bi,bj) = 0.
                0051           qShortWave    (i,j,bi,bj) = 0.
                0052           tauX          (i,j,bi,bj) = 0.
                0053           tauY          (i,j,bi,bj) = 0.
                0054           EvMPrFlux     (i,j,bi,bj) = 0.
                0055 #ifdef ALLOW_LAND
                0056           RunOffFlux    (i,j,bi,bj) = 0.
                0057           RunOffEnFx    (i,j,bi,bj) = 0.
                0058 #endif /* ALLOW_LAND */
                0059 #ifdef ALLOW_THSICE
                0060           iceSaltFlx    (i,j,bi,bj) = 0.
                0061           seaIceMass    (i,j,bi,bj) = 0.
                0062           saltPlmFlx_cpl(i,j,bi,bj) = 0.
                0063 #endif /* ALLOW_THSICE */
                0064 #ifdef ALLOW_AIM
                0065           airCO2        (i,j,bi,bj) = 0.
                0066           sWSpeed       (i,j,bi,bj) = 0.
                0067 #endif /* ALLOW_AIM */
                0068 #ifdef ALLOW_THSICE
                0069           sIceFrac_cpl  (i,j,bi,bj) = 0.
                0070           sIceThick_cpl (i,j,bi,bj) = 0.
                0071           sIceSnowH_cpl (i,j,bi,bj) = 0.
                0072           sIceQ1_cpl    (i,j,bi,bj) = 0.
                0073           sIceQ2_cpl    (i,j,bi,bj) = 0.
                0074 #endif /* ALLOW_THSICE */
5a2fc21c93 Jean*0075 C-        Import field
c121b6d611 Jean*0076 c         ocMxlD        (i,j,bi,bj) = 0.
                0077           SSTocn        (i,j,bi,bj) = 0.
                0078           SSSocn        (i,j,bi,bj) = 0.
                0079           vSqocn        (i,j,bi,bj) = 0.
                0080 #ifdef ALLOW_AIM
                0081           flxCO2ocn     (i,j,bi,bj) = 0.
                0082 #endif /* ALLOW_AIM */
a9cdd26a43 Jean*0083          ENDDO
                0084         ENDDO
c121b6d611 Jean*0085         atmSLPrTime   (bi,bj) = 0.
                0086         HeatFluxTime  (bi,bj) = 0.
5a2fc21c93 Jean*0087         qShortwaveTime(bi,bj) = 0.
c121b6d611 Jean*0088         tauXTime      (bi,bj) = 0.
                0089         tauYTime      (bi,bj) = 0.
                0090         EvMPrTime     (bi,bj) = 0.
                0091 #ifdef ALLOW_LAND
                0092         RunOffTime    (bi,bj) = 0.
                0093         ROEnFxTime    (bi,bj) = 0.
                0094 #endif
                0095 #ifdef ALLOW_THSICE
                0096         saltFxTime    (bi,bj) = 0.
                0097         sIceMassTime  (bi,bj) = 0.
                0098         saltPlmFlxTime(bi,bj) = 0.
                0099 #endif
                0100 #ifdef ALLOW_AIM
                0101         airCO2Time    (bi,bj) = 0.
                0102         sWSpeedTime   (bi,bj) = 0.
                0103 #endif /* ALLOW_AIM */
                0104 #ifdef ALLOW_THSICE
                0105         sIceFracTime  (bi,bj) = 0.
                0106         sIceThickTime (bi,bj) = 0.
                0107         sIceSnowHTime (bi,bj) = 0.
                0108         sIceQ1Time    (bi,bj) = 0.
                0109         sIceQ2Time    (bi,bj) = 0.
                0110 #endif
a9cdd26a43 Jean*0111        ENDDO
                0112       ENDDO
                0113
391a25579e Jean*0114       IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN
5a2fc21c93 Jean*0115        CALL ATM_CPL_READ_PICKUP( nIter0, myThid )
a9cdd26a43 Jean*0116       ENDIF
                0117
5a2fc21c93 Jean*0118 #endif /* COMPONENT_MODULE */
                0119
a9cdd26a43 Jean*0120       RETURN
                0121       END