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

Diff of /MITgcm/diags/src/timeaver_ini_xyz.F

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

revision 1.1 by adcroft, Wed Jul 1 19:49:36 1998 UTC revision 1.5 by jmc, Thu Feb 15 19:01:39 2001 UTC
# Line 1  Line 1 
1  #include "CPP_EEOPTIONS.h"  C $Header$
2    C $Name$
3    #include "CPP_OPTIONS.h"
4    
5  CStartofinterface  CStartofinterface
6        SUBROUTINE TIMEAVER_INI_XYZ( fldtave, bi, bj, K, myThid )        SUBROUTINE TIMEAVER_INI_XYZ( fldtave, bi, bj, K, myThid )
# Line 6  C     /================================= Line 8  C     /=================================
8  C     | SUBROUTINE TIMEAVER_INI_XYZ                              |  C     | SUBROUTINE TIMEAVER_INI_XYZ                              |
9  C     | o Initialize 3D array                                    |  C     | o Initialize 3D array                                    |
10  C     \==========================================================/  C     \==========================================================/
11          IMPLICIT NONE
12    
13  C     == Global variables ===  C     == Global variables ===
14  #include "SIZE.h"  #include "SIZE.h"
# Line 16  C     == Routine arguments == Line 19  C     == Routine arguments ==
19  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
20  C     fldtave - time averaged Field  C     fldtave - time averaged Field
21        INTEGER bi, bj, K, myThid        INTEGER bi, bj, K, myThid
22        _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz,nSx,nSy)        _RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
23    
24  CEndofinterface  CEndofinterface
25    
# Line 26  C     i,j,k,bi,bj  - Loop counters Line 29  C     i,j,k,bi,bj  - Loop counters
29    
30  C     DO bj = myByLo(myThid), myByHi(myThid)  C     DO bj = myByLo(myThid), myByHi(myThid)
31  C      DO bi = myBxLo(myThid), myBxHi(myThid)  C      DO bi = myBxLo(myThid), myBxHi(myThid)
32  C       DO k=1,Nz  C       DO k=1,Nr
33           DO j=1,sNy           DO j=1,sNy
34            DO i=1,sNx            DO i=1,sNx
35               fldtave(i,j,k,bi,bj) = 0. _d 0               fldtave(i,j,k,bi,bj) = 0. _d 0
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22