/[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.33 by jmc, Fri Jul 18 22:04:10 2014 UTC revision 1.34 by jmc, Tue May 9 02:49:34 2017 UTC
# Line 12  C--    o DIAGNOSTICS_SETKLEV Line 12  C--    o DIAGNOSTICS_SETKLEV
12  C--    o DIAGS_GET_PARMS_I (Function)  C--    o DIAGS_GET_PARMS_I (Function)
13  C--    o DIAGS_MK_UNITS (Function)  C--    o DIAGS_MK_UNITS (Function)
14  C--    o DIAGS_MK_TITLE (Function)  C--    o DIAGS_MK_TITLE (Function)
15    C--    o DIAGS_RENAMED (Function)
16    
17  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
18    
# Line 606  C---+----1----+----2----+----3----+----4 Line 607  C---+----1----+----2----+----3----+----4
607        ENDIF        ENDIF
608    
609        RETURN        RETURN
610          END
611    
612    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
613    
614    CBOP 0
615    C     !ROUTINE: DIAGS_RENAMED
616    
617    C     !INTERFACE:
618          CHARACTER*8 FUNCTION DIAGS_RENAMED(
619         I                           diagName, myThid )
620    
621    C     !DESCRIPTION:
622    C     *==========================================================*
623    C     | FUNCTION DIAGS_RENAMED
624    C     | o In case of an old diagnostics name,
625    C     |   provides the corresponding new name
626    C     *==========================================================*
627    
628    C     !USES:
629          IMPLICIT NONE
630    #include "EEPARAMS.h"
631    #include "SIZE.h"
632    #include "PARAMS.h"
633    #include "DIAGNOSTICS_SIZE.h"
634    #include "DIAGNOSTICS.h"
635    
636    C     !INPUT PARAMETERS:
637    C     diagName  :: name of diagnostic to rename (or not)
638    C     myThid    :: my Thread Id number
639          CHARACTER*8 diagName
640          INTEGER myThid
641    CEOP
642    
643    C     !LOCAL VARIABLES:
644          CHARACTER*8 newName
645          CHARACTER*(MAX_LEN_MBUF) msgBuf
646    
647    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
648    
649          newName = blkName
650    
651          IF ( useSEAICE ) THEN
652           IF ( diagName .EQ. 'SIfu    ' ) newName = 'oceTAUX '
653           IF ( diagName .EQ. 'SIfv    ' ) newName = 'oceTAUY '
654           IF ( diagName .EQ. 'SIuwind ' ) newName = 'EXFuwind'
655           IF ( diagName .EQ. 'SIvwind ' ) newName = 'EXFvwind'
656          ENDIF
657    
658          IF ( newName.EQ.blkName ) THEN
659            DIAGS_RENAMED = diagName
660          ELSE
661            DIAGS_RENAMED = newName
662            WRITE(msgBuf,'(6A)') '** WARNING ** (DIAGS_RENAMED):',
663         &    ' diagnostics "', diagName, '" replaced by "', newName, '"'
664            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
665         &                      SQUEEZE_RIGHT , myThid )
666            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
667         &                      SQUEEZE_RIGHT , myThid )
668          ENDIF
669    
670          RETURN
671        END        END
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22