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

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

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

revision 1.30 by jmc, Wed Jan 3 00:29:59 2007 UTC revision 1.31 by jmc, Fri Jan 8 19:44:05 2010 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "DIAG_OPTIONS.h"  #include "DIAG_OPTIONS.h"
5    
6        SUBROUTINE DIAGNOSTICS_WRITE ( myTime, myIter, myThid )        SUBROUTINE DIAGNOSTICS_WRITE (
7         I                               modelEnd,
8         I                               myTime, myIter, myThid )
9  C***********************************************************************  C***********************************************************************
10  C  Purpose  C  Purpose
11  C  -------  C  -------
# Line 11  C    Output sequence for the (multiple) Line 13  C    Output sequence for the (multiple)
13  C  C
14  C  Arguments  Description  C  Arguments  Description
15  C  ----------------------  C  ----------------------
16  C     myTime :: Current time of simulation ( s )  C     modelEnd :: true if call at end of model run.
17  C     myIter :: Current Iteration Number  C     myTime   :: Current time of simulation ( s )
18  C     myThid :: my Thread Id number  C     myIter   :: Current Iteration Number
19    C     myThid   :: my Thread Id number
20  C***********************************************************************  C***********************************************************************
21         IMPLICIT NONE         IMPLICIT NONE
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 23  C*************************************** Line 26  C***************************************
26  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
27    
28  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
29          LOGICAL modelEnd
30        _RL     myTime        _RL     myTime
31        INTEGER myIter, myThid        INTEGER myIter, myThid
32    
# Line 80  C       state-variable time-step: Line 84  C       state-variable time-step:
84       I                          myTime, myIter, myThid )       I                          myTime, myIter, myThid )
85            ENDIF            ENDIF
86  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
87            IF ( dumpAtLast .AND. myTime.EQ.endTime            IF ( dumpAtLast .AND. modelEnd
88       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
89            IF ( dump2fileNow ) THEN            IF ( dump2fileNow ) THEN
90              write2file = .TRUE.              write2file = .TRUE.
# Line 115  C       state-variable time-step: Line 119  C       state-variable time-step:
119             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
120            ENDIF            ENDIF
121  #endif  #endif
122            IF ( dumpAtLast .AND. myTime.EQ.endTime            IF ( dumpAtLast .AND. modelEnd
123       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
124            IF ( dump2fileNow ) THEN            IF ( dump2fileNow ) THEN
125              write2file = .TRUE.              write2file = .TRUE.
# Line 156  C--     Clear storage space: Line 160  C--     Clear storage space:
160       I                          myTime, myIter, myThid )       I                          myTime, myIter, myThid )
161            ENDIF            ENDIF
162  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
163            IF ( dumpAtLast .AND. myTime.EQ.endTime            IF ( dumpAtLast .AND. modelEnd
164       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
165            IF ( dump2fileNow ) CALL DIAGNOSTICS_CLEAR(n,myThid)            IF ( dump2fileNow ) CALL DIAGNOSTICS_CLEAR(n,myThid)
166          ENDDO          ENDDO
# Line 174  C--     Clear storage space: Line 178  C--     Clear storage space:
178             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
179            ENDIF            ENDIF
180  #endif  #endif
181            IF ( dumpAtLast .AND. myTime.EQ.endTime            IF ( dumpAtLast .AND. modelEnd
182       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
183            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR( n, myThid )            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR( n, myThid )
184          ENDDO          ENDDO
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22