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

Diff of /MITgcm/pkg/timeave/timeave_cumul_1k.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 3  C $Name$ Line 3  C $Name$
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
5  CStartofinterface  CStartofinterface
6        SUBROUTINE TIMEAVE_CUMUL_1K( fld, fldtave, deltaT,        SUBROUTINE TIMEAVE_CUMUL_1K( fld, fldtave, deltaTloc,
7       &                             bi, bj, K, myThid )       &                             bi, bj, K, myThid )
8  C     /==========================================================\  C     /==========================================================\
9  C     | SUBROUTINE TIMEAVE_CUMUL_1K                              |  C     | SUBROUTINE TIMEAVE_CUMUL_1K                              |
# Line 22  C     fld  - Input Field Line 22  C     fld  - Input Field
22  C     fldtave - time averaged Field  C     fldtave - time averaged Field
23        _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
24        _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
25        _RL deltaT        _RL deltaTloc
26        INTEGER bi, bj, K, myThid        INTEGER bi, bj, K, myThid
27    
28  CEndofinterface  CEndofinterface
# Line 37  C       DO K=1,Nr Line 37  C       DO K=1,Nr
37           DO j=1,sNy           DO j=1,sNy
38            DO i=1,sNx            DO i=1,sNx
39               fldtave(i,j,K,bi,bj)=               fldtave(i,j,K,bi,bj)=
40       &       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
41             ENDDO             ENDDO
42            ENDDO            ENDDO
43  C        ENDDO  C        ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22