pkg/timeave/timeave_cumul_1t.F

C $Header: $
C $Name:  $
#include "CPP_OPTIONS.h"

CStartofinterface
      SUBROUTINE TIMEAVE_CUMUL_1T( 
     O              fldtave, 
     I              fld, Ksize, deltaT, 
     I              bi, bj, myThid )
C     /==========================================================\
C     | SUBROUTINE TIMEAVE_CUMUL_1T                              |
C     | o Sum over time a single local(tile) array               |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
C     fldtave - time averaged Field
C     fld  - Input Field
C     Ksize - 3rd dimension of local arrays (Input and Output fields)
      INTEGER Ksize
      _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize)
      _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
      _RL deltaT
      INTEGER bi, bj, myThid

CEndofinterface

C     == Local variables ==
C     i,j,k,bi,bj  - Loop counters
      INTEGER i, j, k
 
        DO k=1,Ksize
         DO j=1,sNy
          DO i=1,sNx
             fldtave(i,j,k,bi,bj)=
     &       fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaT
           ENDDO
          ENDDO
         ENDDO
 
      RETURN
      END
1	C $Header: $
2	C $Name: $
3	#include "CPP_OPTIONS.h"
4
5	CStartofinterface
6	SUBROUTINE TIMEAVE_CUMUL_1T(
7	O fldtave,
8	I fld, Ksize, deltaT,
9	I bi, bj, myThid )
10	C /==========================================================\
11	C \| SUBROUTINE TIMEAVE_CUMUL_1T \|
12	C \| o Sum over time a single local(tile) array \|
13	C \==========================================================/
14	IMPLICIT NONE
15
16	C == Global variables ===
17	#include "SIZE.h"
18	#include "EEPARAMS.h"
19
20	C == Routine arguments ==
21	C myThid - Thread number for this instance of the routine.
22	C fldtave - time averaged Field
23	C fld - Input Field
24	C Ksize - 3rd dimension of local arrays (Input and Output fields)
25	INTEGER Ksize
26	_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize)
27	_RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
28	_RL deltaT
29	INTEGER bi, bj, myThid
30
31	CEndofinterface
32
33	C == Local variables ==
34	C i,j,k,bi,bj - Loop counters
35	INTEGER i, j, k
36
37	DO k=1,Ksize
38	DO j=1,sNy
39	DO i=1,sNx
40	fldtave(i,j,k,bi,bj)=
41	& fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaT
42	ENDDO
43	ENDDO
44	ENDDO
45
46	RETURN
47	END