/[MITgcm]/MITgcm/diags/src/timeaver_1fld_xyz.F
ViewVC logotype

Contents of /MITgcm/diags/src/timeaver_1fld_xyz.F

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

Revision 1.1 - (show annotations) (download)
Wed Jul 1 19:49:36 1998 UTC (25 years, 9 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint11, checkpoint13, checkpoint12, checkpoint10, branch-point-rdot
Branch point for: branch-rdot 
The time-averaging diagnostics has been modified to include
averages of "intermediate" quantities that exist only on a tile.
We currently only time-average K13, K23 and wVel but these
should be usable as a template for other diagnostics.
We have now split off these routines into a separate module
called diags/. Use of these routines is enabled by the
CPP flag ALLOW_DIAGNOSTICS set in model/inc/CPP_OPTIONS.h
1 #include "CPP_EEOPTIONS.h"
2
3 CStartofinterface
4 SUBROUTINE TIMEAVER_1FLD_XYZ( fld, fldtave, deltaT, bi, bj, K, myThid )
5 C /==========================================================\
6 C | SUBROUTINE TIMEAVER_1FLD_XYZ |
7 C | o Sum over time a single array |
8 C \==========================================================/
9
10 C == Global variables ===
11 #include "SIZE.h"
12 #include "EEPARAMS.h"
13 #include "AVER.h"
14
15 C == Routine arguments ==
16 C myThid - Thread number for this instance of the routine.
17 C fld - Input Field
18 C fldtave - time averaged Field
19 _RL fld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz,nSx,nSy)
20 _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz,nSx,nSy)
21 REAL deltaT
22 INTEGER bi, bj, K, myThid
23
24 CEndofinterface
25
26 C == Local variables ==
27 C i,j,k,bi,bj - Loop counters
28 INTEGER i, j
29
30 C DO bj = myByLo(myThid), myByHi(myThid)
31 C DO bi = myBxLo(myThid), myBxHi(myThid)
32 C DO k=1,Nz
33 DO j=1,sNy
34 DO i=1,sNx
35 fldtave(i,j,k,bi,bj)=
36 & fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaT
37 ENDDO
38 ENDDO
39 C ENDDO
40 C ENDDO
41 C ENDDO
42
43 RETURN
44 END
  ViewVC Help
Powered by ViewVC 1.1.22