pkg/timeave/timeave_cumul_1k1t.F

30e883b651 Jean*0001 #include "CPP_EEOPTIONS.h"
6add245ab0 Jean*0002
                0003 CStartofinterface
                0004       SUBROUTINE TIMEAVE_CUMUL_1K1T(
                0005      O              fldtave,
873fffa31d Patr*0006      I              fld, deltaTloc,
6add245ab0 Jean*0007      I              Ksize, k, bi, bj, myThid )
                0008 C     *==========================================================*
                0009 C     | SUBROUTINE TIMEAVE_CUMUL_1K1T
                0010 C     | o Sum over time a single level, single tile array
                0011 C     *==========================================================*
                0012       IMPLICIT NONE
                0013
                0014 C     == Global variables ===
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017
                0018 C     == Routine arguments ==
                0019 C     myThid  - Thread number for this instance of the routine.
                0020 C     fldtave - time averaged Field
                0021 C     fld     - Input Field
                0022 C     Ksize   - 3rd dimension of the time-average array (fldtave)
                0023 C     k       - current level
                0024 C     bi,bj   - current tile indices
                0025       INTEGER Ksize
                0026       _RL fld    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
                0027       _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
873fffa31d Patr*0028       _RL deltaTloc
6add245ab0 Jean*0029       INTEGER k, bi, bj, myThid
                0030
                0031 CEndofinterface
                0032
                0033 C     == Local variables ==
                0034 C     i,j - Loop counters
                0035       INTEGER i, j
                0036
                0037       DO j=1,sNy
                0038         DO i=1,sNx
                0039           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
873fffa31d Patr*0040      &                         + fld(i,j)*deltaTloc
6add245ab0 Jean*0041         ENDDO
                0042       ENDDO
                0043
                0044       RETURN
                0045       END