50 |
LOGICAL diagIsPP, flagD, flagP, flagM |
LOGICAL diagIsPP, flagD, flagP, flagM |
51 |
|
|
52 |
CHARACTER*10 gcode |
CHARACTER*10 gcode |
53 |
CHARACTER*18 tmpMsg |
CHARACTER*12 tmpMsg |
54 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
55 |
|
|
56 |
C ********************************************************************** |
C ********************************************************************** |
129 |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
130 |
ENDIF |
ENDIF |
131 |
ELSE |
ELSE |
132 |
WRITE(msgBuf,'(A,I6,1X,2A)') '- NOTE - SETDIAG: Diagnostic #', |
tmpMsg = ' Diagnostic ' |
133 |
& nn, cdiag(nn), ' is already set' |
WRITE(msgBuf,'(3A,I6,1X,2A)') '- NOTE - SETDIAG: ',tmpMsg, |
134 |
|
& ' #', nn, cdiag(nn), ' is already set' |
135 |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
136 |
ENDIF |
ENDIF |
137 |
|
|
141 |
mate = 0 |
mate = 0 |
142 |
|
|
143 |
C- if Post-Processed diag, activate 2nd components of vector field |
C- if Post-Processed diag, activate 2nd components of vector field |
144 |
tmpMsg = ' Vector-mate Diag.' |
tmpMsg = ' Vector-mate' |
145 |
IF ( diagIsPP .AND. gcode(5:5).NE.'P' .AND. |
IF ( diagIsPP .AND. gcode(5:5).NE.'P' .AND. |
146 |
& (gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V') ) mate = hdiag(nn) |
& (gcode(1:1).EQ.'U' .OR. gcode(1:1).EQ.'V') ) mate = hdiag(nn) |
147 |
C- activate mate if this is a Counter Diagnostic |
C- activate mate if this is a Counter Diagnostic |
148 |
IF ( gcode(5:5).EQ.'C') THEN |
IF ( gcode(5:5).EQ.'C') THEN |
149 |
mate = hdiag(nn) |
mate = hdiag(nn) |
150 |
tmpMsg = 'Counter Diagnostic' |
tmpMsg = 'Counter-mate' |
151 |
ENDIF |
ENDIF |
152 |
|
|
153 |
IF ( mate.GT.0 ) THEN |
IF ( mate.GT.0 ) THEN |