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

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

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

revision 1.1 by jmc, Fri May 20 07:28:52 2005 UTC revision 1.2 by jmc, Wed Jun 29 23:07:34 2005 UTC
# Line 36  C     !LOCAL VARIABLES: Line 36  C     !LOCAL VARIABLES:
36  C     == Local variables ==  C     == Local variables ==
37        INTEGER m, n, j, iL, nUnit        INTEGER m, n, j, iL, nUnit
38        CHARACTER*(MAX_LEN_FNAM) dataFName        CHARACTER*(MAX_LEN_FNAM) dataFName
39        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf, tmpBuf
40        INTEGER  ILNBLNK        INTEGER  ILNBLNK
41        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
42    
# Line 73  C-      write a kind of header: Line 73  C-      write a kind of header:
73            iL = 17            iL = 17
74            DO j=0,nRegions            DO j=0,nRegions
75              IF (diagSt_region(j,n).GE.1 .AND.iL+3.LE.MAX_LEN_MBUF) THEN              IF (diagSt_region(j,n).GE.1 .AND.iL+3.LE.MAX_LEN_MBUF) THEN
76                WRITE(msgBuf,'(A,I3)') msgBuf(1:iL),j                            tmpBuf(1:iL) = msgBuf(1:iL)
77                  WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j            
78                iL = iL+3                iL = iL+3
79              ENDIF              ENDIF
80            ENDDO            ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22