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

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

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

revision 1.1 by edhill, Wed Jul 6 02:13:52 2005 UTC revision 1.2 by edhill, Wed Jul 6 14:58:11 2005 UTC
# Line 10  C     !ROUTINE: DIAGSTATS_MNC_OUT Line 10  C     !ROUTINE: DIAGSTATS_MNC_OUT
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE DIAGSTATS_MNC_OUT(        SUBROUTINE DIAGSTATS_MNC_OUT(
12       I     statGlob, nLev, ndId,       I     statGlob, nLev, ndId,
13       I     mId, listId, myIter, myTime, myThid )       I     mId, listId, myTime, myIter, myThid )
14    
15  C     !DESCRIPTION:  C     !DESCRIPTION:
16  C     Write Global statistics to a netCDF file  C     Write Global statistics to a netCDF file
# Line 42  C     myIter   :: current Iteration Numb Line 42  C     myIter   :: current Iteration Numb
42  C     myTime   :: current time of simulation (s)  C     myTime   :: current time of simulation (s)
43  C     myThid   :: my thread Id number  C     myThid   :: my thread Id number
44        INTEGER nLev        INTEGER nLev
45        _RL statGlob(0:nStats,0:nLev,0:nRegions)        _RL     statGlob(0:nStats,0:nLev,0:nRegions)
46          _RL     myTime
47        INTEGER ndId, mId, listId        INTEGER ndId, mId, listId
48        INTEGER myIter, myTime, myThid        INTEGER myIter, myThid
49  CEOP  CEOP
50    
51  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 103  C         Update the record dimension by Line 104  C         Update the record dimension by
104            CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)            CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)
105            CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid)            CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid)
106            CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)            CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)
107              CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid)
108          ENDIF          ENDIF
109    
110  #ifdef DIAGST_MNC_NEEDSWORK  #ifdef DIAGST_MNC_NEEDSWORK
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22