diags/src/timeaver_1fld_xyz.F

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

CStartofinterface
      SUBROUTINE TIMEAVER_1FLD_XYZ( fld, fldtave, deltaT, 
     &                              bi, bj, K, myThid )
C     /==========================================================\
C     | SUBROUTINE TIMEAVER_1FLD_XYZ                             |
C     | o Sum over time a single array                           |
C     \==========================================================/
      IMPLICIT NONE

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

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
C     fld  - Input Field
C     fldtave - time averaged Field
      _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL deltaT
      INTEGER bi, bj, K, myThid

CEndofinterface

C     == Local variables ==
C     i,j,k,bi,bj  - Loop counters
      INTEGER i, j
 
C     DO bj = myByLo(myThid), myByHi(myThid)
C      DO bi = myBxLo(myThid), myBxHi(myThid)
C       DO k=1,Nr
         DO j=1,sNy
          DO i=1,sNx
             fldtave(i,j,k,bi,bj)=
     &       fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaT
           ENDDO
          ENDDO
C        ENDDO
C       ENDDO
C      ENDDO
 
      RETURN
      END
1	cnh	1.6	C $Header: $
2			C $Name: $
3	adcroft	1.1	#include "CPP_EEOPTIONS.h"
4
5			CStartofinterface
6	cnh	1.3	SUBROUTINE TIMEAVER_1FLD_XYZ( fld, fldtave, deltaT,
7			& bi, bj, K, myThid )
8	adcroft	1.1	C /==========================================================\
9			C \| SUBROUTINE TIMEAVER_1FLD_XYZ \|
10			C \| o Sum over time a single array \|
11			C \==========================================================/
12	adcroft	1.4	IMPLICIT NONE
13	adcroft	1.1
14			C == Global variables ===
15			#include "SIZE.h"
16			#include "EEPARAMS.h"
17			#include "AVER.h"
18
19			C == Routine arguments ==
20			C myThid - Thread number for this instance of the routine.
21			C fld - Input Field
22			C fldtave - time averaged Field
23	cnh	1.2	_RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
24			_RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
25	adcroft	1.5	_RL deltaT
26	adcroft	1.1	INTEGER bi, bj, K, myThid
27
28			CEndofinterface
29
30			C == Local variables ==
31			C i,j,k,bi,bj - Loop counters
32			INTEGER i, j
33
34			C DO bj = myByLo(myThid), myByHi(myThid)
35			C DO bi = myBxLo(myThid), myBxHi(myThid)
36	cnh	1.2	C DO k=1,Nr
37	adcroft	1.1	DO j=1,sNy
38			DO i=1,sNx
39			fldtave(i,j,k,bi,bj)=
40			& fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaT
41			ENDDO
42			ENDDO
43			C ENDDO
44			C ENDDO
45			C ENDDO
46
47			RETURN
48			END