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

Diff of /MITgcm/pkg/timeave/timeave_cumul_1k1t.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:58 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_1K1T(        SUBROUTINE TIMEAVE_CUMUL_1K1T(
7       O              fldtave,       O              fldtave,
8       I              fld, deltaT,       I              fld, deltaTloc,
9       I              Ksize, k, bi, bj, myThid )       I              Ksize, k, bi, bj, myThid )
10  C     *==========================================================*  C     *==========================================================*
11  C     | SUBROUTINE TIMEAVE_CUMUL_1K1T  C     | SUBROUTINE TIMEAVE_CUMUL_1K1T
# Line 27  C     bi,bj   - current tile indices Line 27  C     bi,bj   - current tile indices
27        INTEGER Ksize        INTEGER Ksize
28        _RL fld    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL fld    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
29        _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)
30        _RL deltaT        _RL deltaTloc
31        INTEGER k, bi, bj, myThid        INTEGER k, bi, bj, myThid
32    
33  CEndofinterface  CEndofinterface
# Line 39  C     i,j - Loop counters Line 39  C     i,j - Loop counters
39        DO j=1,sNy        DO j=1,sNy
40          DO i=1,sNx          DO i=1,sNx
41            fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)            fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
42       &                         + fld(i,j)*deltaT       &                         + fld(i,j)*deltaTloc
43          ENDDO          ENDDO
44        ENDDO        ENDDO
45    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22