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

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

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

revision 1.32 by jmc, Wed Aug 14 00:54:06 2013 UTC revision 1.33 by jmc, Fri Jul 18 22:04:10 2014 UTC
# Line 489  CEOP Line 489  CEOP
489    
490  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
491        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
492        INTEGER i,j,n        INTEGER i,j,n,nbc
493    
494        DIAGS_MK_UNITS = '                '        DIAGS_MK_UNITS = '                '
495        n = LEN(diagUnitsInPieces)        n = LEN(diagUnitsInPieces)
# Line 501  C     !LOCAL VARIABLES: Line 501  C     !LOCAL VARIABLES:
501           IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)           IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
502         ENDIF         ENDIF
503        ENDDO        ENDDO
504          nbc = j
505    
506          IF ( nbc.GT.16 ) THEN
507    C-    try to reduce length by changing m^2 & m^3 to m2 & m3:
508           DIAGS_MK_UNITS = '                '
509           j = 0
510           DO i=1,n
511            IF ( diagUnitsInPieces(i:i) .NE. ' ' ) THEN
512             IF ( j.GE.1 .AND. nbc.GT.16 .AND.
513         &         diagUnitsInPieces(i:i).EQ.'^' ) THEN
514              IF ( diagUnitsInPieces(i-1:i-1).EQ.'m' ) THEN
515                nbc = nbc - 1
516              ELSE
517               j = j+1
518               IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
519              ENDIF
520             ELSE
521              j = j+1
522              IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
523             ENDIF
524            ENDIF
525           ENDDO
526          ENDIF
527    
528        IF ( j.GT.16 ) THEN        IF ( j.GT.16 ) THEN
529           WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ',           WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ',
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22