diags/src/timeaver_inter_xy.F

C $Header: /u/gcmpack/models/MITgcmUV/diags/src/timeaver_inter_xy.F,v 1.5 2001/02/04 14:38:41 cnh Exp $
C $Name:  $
#include "CPP_EEOPTIONS.h"

CStartofinterface
      SUBROUTINE TIMEAVER_INTER_XY(
     I  fld, fldtave,
     I  deltaT, bi, bj,
     I  myThid )
C     /==========================================================\
C     | SUBROUTINE TIMEAVER_INTER_XY                             |
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
      INTEGER bi, bj, myThid
      _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
      _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL deltaT

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