--- MITgcm/pkg/diagnostics/diagnostics_out.F	2005/05/02 21:24:12	1.13
+++ MITgcm/pkg/diagnostics/diagnostics_out.F	2005/05/25 04:03:09	1.14
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_out.F,v 1.13 2005/05/02 21:24:12 edhill Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_out.F,v 1.14 2005/05/25 04:03:09 edhill Exp $
 C $Name:  $
 
 #include "DIAG_OPTIONS.h"
@@ -11,6 +11,7 @@
       SUBROUTINE  DIAGNOSTICS_OUT(
      I     listnum,
      I     myIter,
+     I     myTime,
      I     myThid )
 
 C     !DESCRIPTION:
@@ -37,6 +38,7 @@
 C     listnum :: Diagnostics list number being written
 C     myIter  :: current iteration number
 C     myThid  :: my Thread Id number
+      _RL     myTime
       INTEGER listnum, myIter, myThid
 CEOP
 
@@ -92,7 +94,7 @@
 
 C       Update the record dimension by writing the iteration number
         CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid)
-        CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'T',myIter,myThid)
+        CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid)
         CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid)
 
         dn(1)(1:NLEN) = dn_blnk(1:NLEN)