/[MITgcm]/MITgcm/pkg/timeave/timeave_cumulate.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_cumulate.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Fri Dec 5 02:27:59 2003 UTC revision 1.4 by heimbach, Fri Aug 19 22:50:26 2005 UTC
# Line 5  C $Name$ Line 5  C $Name$
5  CStartofinterface  CStartofinterface
6        SUBROUTINE TIMEAVE_CUMULATE(        SUBROUTINE TIMEAVE_CUMULATE(
7       O              fldtave,       O              fldtave,
8       I              fld, Ksize, deltaT,       I              fld, Ksize, deltaTloc,
9       I              bi, bj, myThid )       I              bi, bj, myThid )
10  C     /==========================================================\  C     /==========================================================\
11  C     | SUBROUTINE TIMEAVE_CUMULATE                              |  C     | SUBROUTINE TIMEAVE_CUMULATE                              |
# Line 25  C     Ksize - 3rd dimension of local arr Line 25  C     Ksize - 3rd dimension of local arr
25        INTEGER Ksize        INTEGER Ksize
26        _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)        _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
27        _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)        _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
28        _RL deltaT        _RL deltaTloc
29        INTEGER bi, bj, myThid        INTEGER bi, bj, myThid
30    
31  CEndofinterface  CEndofinterface
# Line 40  C      DO bi = myBxLo(myThid), myBxHi(my Line 40  C      DO bi = myBxLo(myThid), myBxHi(my
40           DO j=1,sNy           DO j=1,sNy
41            DO i=1,sNx            DO i=1,sNx
42               fldtave(i,j,k,bi,bj)=               fldtave(i,j,k,bi,bj)=
43       &       fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaT       &       fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaTloc
44             ENDDO             ENDDO
45            ENDDO            ENDDO
46           ENDDO           ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22