Diff of /MITgcm/pkg/seaice/seaice_obcs_output.F

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm/pkg/seaice/seaice_obcs_output.F	2011/10/11 02:05:25	1.3
+++ MITgcm/pkg/seaice/seaice_obcs_output.F	2017/03/24 23:53:17	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_obcs_output.F,v 1.3 2011/10/11 02:05:25 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_obcs_output.F,v 1.4 2017/03/24 23:53:17 jmc Exp $
 C $Name:  $
 
 #include "SEAICE_OPTIONS.h"
@@ -48,6 +48,7 @@
 c     EXTERNAL ILNBLNK
 
 C     !LOCAL VARIABLES:
+      CHARACTER*(10) suff
       CHARACTER*(MAX_LEN_FNAM) fn
       INTEGER prec
 
@@ -60,10 +61,15 @@
 
        _BARRIER
         prec = writeBinaryPrec
+c       IF ( rwSuffixType.EQ.0 ) THEN
+          WRITE(suff,'(I10.10)') myIter
+c       ELSE
+c         CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid )
+c       ENDIF
 
 C     Write Sea-Ice OB arrays
 # ifdef ALLOW_OBCS_NORTH
-        WRITE(fn,'(A,I10.10)') 'seaice_ob_N.', myIter
+        WRITE(fn,'(2A)') 'seaice_ob_N.', suff
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNa,    1,myIter,myThid)
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNh,    2,myIter,myThid)
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsl,   3,myIter,myThid)
@@ -72,7 +78,7 @@
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNvice, 6,myIter,myThid)
 # endif
 # ifdef ALLOW_OBCS_SOUTH
-        WRITE(fn,'(A,I10.10)') 'seaice_ob_S.', myIter
+        WRITE(fn,'(2A)') 'seaice_ob_S.', suff
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSa,    1,myIter,myThid)
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSh,    2,myIter,myThid)
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsl,   3,myIter,myThid)
@@ -81,7 +87,7 @@
         CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSvice, 6,myIter,myThid)
 # endif
 # ifdef ALLOW_OBCS_EAST
-        WRITE(fn,'(A,I10.10)') 'seaice_ob_E.', myIter
+        WRITE(fn,'(2A)') 'seaice_ob_E.', suff
         CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEa,    1,myIter,myThid)
         CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEh,    2,myIter,myThid)
         CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsl,   3,myIter,myThid)
@@ -90,7 +96,7 @@
         CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEvice, 6,myIter,myThid)
 # endif
 # ifdef ALLOW_OBCS_WEST
-        WRITE(fn,'(A,I10.10)') 'seaice_ob_W.', myIter
+        WRITE(fn,'(2A)') 'seaice_ob_W.', suff
         CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWa,    1,myIter,myThid)
         CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWh,    2,myIter,myThid)
         CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsl,   3,myIter,myThid)