/[MITgcm]/MITgcm/pkg/diagnostics/diagstats_output.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagstats_output.F

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

revision 1.2 by jmc, Sun Jun 26 16:51:49 2005 UTC revision 1.3 by edhill, Wed Jul 6 02:13:52 2005 UTC
# Line 10  C     !ROUTINE: DIAGSTATS_OUTPUT Line 10  C     !ROUTINE: DIAGSTATS_OUTPUT
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE  DIAGSTATS_OUTPUT(        SUBROUTINE  DIAGSTATS_OUTPUT(
12       I     listId,       I     listId,
13       I     myIter,       I     myIter, myTime, myThid )
      I     myThid )  
14    
15  C     !DESCRIPTION:  C     !DESCRIPTION:
16  C     Write output for diagnostics fields.  C     Write output for diagnostics fields.
# Line 37  C     !INPUT PARAMETERS: Line 36  C     !INPUT PARAMETERS:
36  C     listId :: Diagnostics list number being written  C     listId :: Diagnostics list number being written
37  C     myIter  :: current iteration number  C     myIter  :: current iteration number
38  C     myThid  :: my Thread Id number  C     myThid  :: my Thread Id number
39        INTEGER listId, myIter, myThid        INTEGER listId, myIter, myTime, myThid
40  CEOP  CEOP
41    
42  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 123  C-          Check for empty Diag (= not Line 122  C-          Check for empty Diag (= not
122            ENDIF            ENDIF
123           ENDDO           ENDDO
124    
125  C--      Write to file:  C--      Write to ASCII file:
126           IF (diagSt_Ascii) THEN           IF (diagSt_Ascii) THEN
127             CALL DIAGSTATS_ASCII_OUT( statGlob, nLev, ndId,             CALL DIAGSTATS_ASCII_OUT( statGlob, nLev, ndId,
128       &                               m, listId, myIter, myThid )       &                               m, listId, myIter, myThid )
129           ENDIF           ENDIF
130    
131             IF (diagSt_mnc) THEN
132               CALL DIAGSTATS_MNC_OUT(
133         &          statGlob, nLev, ndId,
134         &          m, listId, myIter, myTime, myThid )
135             ENDIF
136    
137  C--    end of Processing Fld # m  C--    end of Processing Fld # m
138         ENDIF         ENDIF
139        ENDDO        ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22