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

Diff of /MITgcm/pkg/timeave/timeave_cumul_fc.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_CUMUL_FC(        SUBROUTINE TIMEAVE_CUMUL_FC(
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_CUMUL_FC                              |  C     | SUBROUTINE TIMEAVE_CUMUL_FC                              |
# Line 25  C     Ksize - 3rd dimension of local arr Line 25  C     Ksize - 3rd dimension of local arr
25        INTEGER Ksize        INTEGER Ksize
26        _RS fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)        _RS 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)             fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
43       &                       + deltaT*fld(i,j,k,bi,bj)       &                       + deltaTloc*fld(i,j,k,bi,bj)
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