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

Diff of /MITgcm/pkg/timeave/timeave_cumul_1vfc.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_1VFC(        SUBROUTINE TIMEAVE_CUMUL_1VFC(
7       O   fldtave,       O   fldtave,
8       I   fld1, fld2, Ksize, deltaT,       I   fld1, fld2, Ksize, deltaTloc,
9       I   bi, bj, myThid )       I   bi, bj, myThid )
10  C     /==========================================================\  C     /==========================================================\
11  C     | SUBROUTINE TIMEAVE_CUMUL_1VFC                            |  C     | SUBROUTINE TIMEAVE_CUMUL_1VFC                            |
# Line 28  C     Ksize - 3rd dimension of local arr Line 28  C     Ksize - 3rd dimension of local arr
28        _RL fld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)        _RL fld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
29        _RS fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)        _RS fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy)
30        _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)
31        _RL deltaT        _RL deltaTloc
32        INTEGER bi, bj, myThid        INTEGER bi, bj, myThid
33    
34  CEndofinterface  CEndofinterface
# Line 43  C      DO bi = myBxLo(myThid), myBxHi(my Line 43  C      DO bi = myBxLo(myThid), myBxHi(my
43           DO j=1,sNy           DO j=1,sNy
44            DO i=1,sNx            DO i=1,sNx
45             fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)             fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
46       &       + deltaT*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)       &       + deltaTloc*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)
47             ENDDO             ENDDO
48            ENDDO            ENDDO
49           ENDDO           ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22