pkg/timeave/timeave_reset_1k.F

C $Header: /u/gcmpack/MITgcm/pkg/timeave/timeave_reset_1k.F,v 1.2 2003/10/09 04:19:20 edhill Exp $
C $Name:  $
#include "TIMEAVE_OPTIONS.h"

CStartofinterface
      SUBROUTINE TIMEAVE_RESET_1K( fldtave, bi, bj, K, myThid )
C     /==========================================================\
C     | SUBROUTINE TIMEAVE_RESET_1K                              |
C     | o Initialize 1 level of a 3D array                       |
C     |  (replace "timeaver_ini_xyz" and use the same argments)  |
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
      INTEGER bi, bj, K, myThid
      _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)

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) = 0. _d 0
          ENDDO
         ENDDO
C       ENDDO
C      ENDDO
C     ENDDO
 
      RETURN
      END
1	jmc	1.3	C $Header: /u/gcmpack/MITgcm/pkg/timeave/timeave_reset_1k.F,v 1.2 2003/10/09 04:19:20 edhill Exp $
2	jmc	1.1	C $Name: $
3	edhill	1.2	#include "TIMEAVE_OPTIONS.h"
4	jmc	1.1
5			CStartofinterface
6			SUBROUTINE TIMEAVE_RESET_1K( fldtave, bi, bj, K, myThid )
7			C /==========================================================\
8			C \| SUBROUTINE TIMEAVE_RESET_1K \|
9			C \| o Initialize 1 level of a 3D array \|
10			C \| (replace "timeaver_ini_xyz" and use the same argments) \|
11			C \==========================================================/
12			IMPLICIT NONE
13
14			C == Global variables ===
15			#include "SIZE.h"
16			#include "EEPARAMS.h"
17
18			C == Routine arguments ==
19			C myThid - Thread number for this instance of the routine.
20			C fldtave - time averaged Field
21			INTEGER bi, bj, K, myThid
22			_RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
23
24			CEndofinterface
25
26			C == Local variables ==
27			C i,j,k,bi,bj - Loop counters
28			INTEGER i, j
29
30			C DO bj = myByLo(myThid), myByHi(myThid)
31			C DO bi = myBxLo(myThid), myBxHi(myThid)
32			C DO k=1,Nr
33			DO j=1,sNy
34			DO i=1,sNx
35			fldtave(i,j,k,bi,bj) = 0. _d 0
36			ENDDO
37			ENDDO
38			C ENDDO
39			C ENDDO
40			C ENDDO
41
42			RETURN
43			END