C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/timeave/timeave_reset.F,v 1.1 2001/03/06 15:52:47 jmc Exp $
C $Name:  $
#include "CPP_OPTIONS.h"

CStartofinterface
      SUBROUTINE TIMEAVE_RESET( fldtave, Ksize, bi, bj, myThid )
C     /==========================================================\
C     | SUBROUTINE TIMEAVE_RESET                                 |
C     | o Initialize 3D array  (3rd_Dim is an argument)          |
C     |   Can be applied to 2D array with 3rd_Dim = 1            |
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     Ksize - 3rd dimension of local arrays "fldtave"
      INTEGER bi, bj, Ksize, myThid
      _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)

CEndofinterface

C     == Local variables ==
C     i,j,k,bi,bj  - Loop counters
      INTEGER i, j, k
 
c     DO bj = myByLo(myThid), myByHi(myThid)
c      DO bi = myBxLo(myThid), myBxHi(myThid)
        DO k=1,Ksize
         DO j=1-OLy,sNy+OLy
          DO i=1-OLx,sNx+OLx
             fldtave(i,j,k,bi,bj) = 0. _d 0
          ENDDO
         ENDDO
        ENDDO
c      ENDDO
c     ENDDO
 
      RETURN
      END