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

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

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

Revision 1.5 - (show annotations) (download)
Fri Jul 30 15:42:55 1999 UTC (24 years, 10 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint26, checkpoint24, checkpoint25, checkpoint27, checkpoint28
Changes since 1.4: +1 -1 lines 
Changed some erroneous declarations of myCurrentTime (sometimes myTime)
from REAL to _RL. This probably was caught before because most people
are using -r8 compile option in conjuction with REAL4_IS_SLOW which
converts everything to real*8.  Spotted by C.E.
1 #include "CPP_EEOPTIONS.h"
2
3 CStartofinterface
4 SUBROUTINE TIMEAVER_FINAL_XYZ( fldtave, timeave,
5 & bi, bj, K, myThid )
6 C /==========================================================\
7 C | SUBROUTINE TIMEAVER_FINAL_XY |
8 C | o Get final average of field |
9 C \==========================================================/
10 IMPLICIT NONE
11
12 C == Global variables ===
13 #include "SIZE.h"
14 #include "EEPARAMS.h"
15
16 C == Routine arguments ==
17 C myThid - Thread number for this instance of the routine.
18 C timeave - time averaged
19 C fldtave - time averaged Field
20 INTEGER bi, bj, K, myThid
21 _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
22 _RL timeave(Nr,nSx,nSy)
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,Nr
33 DO j=1,sNy
34 DO i=1,sNx
35 fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) /
36 & timeave(k,bi,bj)
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