pkg/timeave/timeave_cumul_1k1t.F

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

CStartofinterface
      SUBROUTINE TIMEAVE_CUMUL_1K1T( 
     O              fldtave, 
     I              fld, deltaT, 
     I              Ksize, k, bi, bj, myThid )
C     *==========================================================*
C     | SUBROUTINE TIMEAVE_CUMUL_1K1T
C     | o Sum over time a single level, single 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 the time-average array (fldtave)
C     k       - current level
C     bi,bj   - current tile indices
      INTEGER Ksize
      _RL fld    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
      _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
      _RL deltaT
      INTEGER k, bi, bj, myThid

CEndofinterface

C     == Local variables ==
C     i,j - Loop counters
      INTEGER i, j
 
      DO j=1,sNy
        DO i=1,sNx
          fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
     &                         + fld(i,j)*deltaT
        ENDDO
      ENDDO
 
      RETURN
      END
1	C $Header: $
2	C $Name: $
3	#include "CPP_OPTIONS.h"
4
5	CStartofinterface
6	SUBROUTINE TIMEAVE_CUMUL_1K1T(
7	O fldtave,
8	I fld, deltaT,
9	I Ksize, k, bi, bj, myThid )
10	C ==========================================================
11	C \| SUBROUTINE TIMEAVE_CUMUL_1K1T
12	C \| o Sum over time a single level, single 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 the time-average array (fldtave)
25	C k - current level
26	C bi,bj - current tile indices
27	INTEGER Ksize
28	_RL fld (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
29	_RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
30	_RL deltaT
31	INTEGER k, bi, bj, myThid
32
33	CEndofinterface
34
35	C == Local variables ==
36	C i,j - Loop counters
37	INTEGER i, j
38
39	DO j=1,sNy
40	DO i=1,sNx
41	fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
42	& + fld(i,j)*deltaT
43	ENDDO
44	ENDDO
45
46	RETURN
47	END