/[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.3 by edhill, Wed Jul 6 02:13:52 2005 UTC revision 1.6 by jmc, Sun Jul 10 00:52:12 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, myTime, myThid )       I     myTime, myIter, myThid )
14    
15  C     !DESCRIPTION:  C     !DESCRIPTION:
16  C     Write output for diagnostics fields.  C     Write output for diagnostics fields.
# Line 33  C     !USES: Line 33  C     !USES:
33  #endif  #endif
34    
35  C     !INPUT PARAMETERS:  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     myTime  :: Current time of simulation (s)
39  C     myThid  :: my Thread Id number  C     myThid  :: my Thread Id number
40        INTEGER listId, myIter, myTime, myThid        _RL     myTime
41          INTEGER listId, myIter, myThid
42  CEOP  CEOP
43    
44  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 84  C          ----------------------------- Line 86  C          -----------------------------
86       I                       ndId, mate, iSp, iSm, myThid )       I                       ndId, mate, iSp, iSm, myThid )
87    
88  C-          Check for empty Diag (= not filled or using empty mask)  C-          Check for empty Diag (= not filled or using empty mask)
89              IF ( statGlob(0,0,j).EQ.0. ) THEN              IF ( tmp_Glob(0,0).EQ.0. ) THEN
90               _BEGIN_MASTER( myThid )               _BEGIN_MASTER( myThid )
91               WRITE(msgBuf,'(A,I10,A,I3)')               WRITE(msgBuf,'(A,I10,A,I3)')
92       &        '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter,       &        '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter,
# Line 131  C--      Write to ASCII file: Line 133  C--      Write to ASCII file:
133           IF (diagSt_mnc) THEN           IF (diagSt_mnc) THEN
134             CALL DIAGSTATS_MNC_OUT(             CALL DIAGSTATS_MNC_OUT(
135       &          statGlob, nLev, ndId,       &          statGlob, nLev, ndId,
136       &          m, listId, myIter, myTime, myThid )       &          m, listId, myTime, myIter, myThid )
137           ENDIF           ENDIF
138    
139  C--    end of Processing Fld # m  C--    end of Processing Fld # m
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22