pkg/atm_compon_interf/atm_store_dynvars.F

3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
12983a4149 Jean*0002
                0003 CBOP
                0004 C     !ROUTINE: ATM_STORE_DYNVARS
                0005 C     !INTERFACE:
                0006       SUBROUTINE ATM_STORE_DYNVARS(
                0007      I                     bi, bj,
                0008      I                     myTime, myIter, myThid )
                0009
                0010 C     !DESCRIPTION: \bv
                0011 C     *==========================================================*
                0012 C     | SUBROUTINE ATM_STORE_DYNVARS
                0013 C     | o Routine for saving dynamical fields (e.g.,  atmos.
                0014 C     |   sea-level pressure ) for export to coupling layer.
                0015 C     *==========================================================*
                0016 C     | This version interfaces to the main model
                0017 C     *==========================================================*
                0018 C     \ev
                0019
                0020 C     !USES:
                0021       IMPLICIT NONE
                0022
                0023 C     == Global variables ==
                0024 #include "SIZE.h"
                0025 #include "EEPARAMS.h"
                0026 #include "PARAMS.h"
                0027 #include "CPL_PARAMS.h"
                0028 C     == Global variables (main model)
                0029 #include "DYNVARS.h"
                0030 C     == Global variables for coupling interface ==
                0031 #include "ATMCPL.h"
                0032
                0033 C     !INPUT/OUTPUT PARAMETERS:
                0034 C     bi, bj    :: Tile indices
                0035 C     myTime    :: Current time in simulation (s)
                0036 C     myIter    :: Current iteration number
                0037 C     myThid    :: My Thread Id. number
                0038       INTEGER bi, bj
                0039       _RL     myTime
                0040       INTEGER myIter
                0041       INTEGER myThid
                0042
                0043 C     !LOCAL VARIABLES:
                0044 C     i, j      :: Loop counters
                0045       INTEGER i,j
ece6c362bf Jean*0046 c     _RL cplTimeFraction
12983a4149 Jean*0047 CEOP
                0048
                0049 C     o Accumulate Sea-level pressure anomaly from dynamical core
                0050 C       to the coupling layer. Eta is in Pa
ece6c362bf Jean*0051 c      cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
                0052 c      atmSLPrTime(bi,bj) = atmSLPrTime(bi,bj) + cplTimeFraction
                0053        atmSLPrTime(bi,bj) = 1. _d 0
12983a4149 Jean*0054        DO j=1,sNy
                0055         DO i=1,sNx
ece6c362bf Jean*0056 c         atmSLPr(i,j,bi,bj) = atmSLPr(i,j,bi,bj)
                0057 c    &                 + etaN(i,j,bi,bj)*cplTimeFraction
                0058           atmSLPr(i,j,bi,bj) = etaN(i,j,bi,bj)
12983a4149 Jean*0059         ENDDO
                0060        ENDDO
                0061
                0062       RETURN
                0063       END