pkg/timeave/timeave_cumul_1t.F

30e883b651 Jean*0001 #include "CPP_EEOPTIONS.h"
aea29c8517 Alis*0002
                0003 CStartofinterface
                0004       SUBROUTINE TIMEAVE_CUMUL_1T(
                0005      O              fldtave,
873fffa31d Patr*0006      I              fld, Ksize, deltaTloc,
aea29c8517 Alis*0007      I              bi, bj, myThid )
                0008 C     /==========================================================\
                0009 C     | SUBROUTINE TIMEAVE_CUMUL_1T                              |
                0010 C     | o Sum over time a single local(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 local arrays (Input and Output fields)
                0023       INTEGER Ksize
                0024       _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize)
                0025       _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
873fffa31d Patr*0026       _RL deltaTloc
aea29c8517 Alis*0027       INTEGER bi, bj, myThid
                0028
                0029 CEndofinterface
                0030
                0031 C     == Local variables ==
                0032 C     i,j,k,bi,bj  - Loop counters
                0033       INTEGER i, j, k
                0034
                0035         DO k=1,Ksize
                0036          DO j=1,sNy
                0037           DO i=1,sNx
                0038              fldtave(i,j,k,bi,bj)=
873fffa31d Patr*0039      &       fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaTloc
aea29c8517 Alis*0040            ENDDO
                0041           ENDDO
                0042          ENDDO
                0043
                0044       RETURN
                0045       END