227 |
averagePhase(n) = averagingPhase(l) |
averagePhase(n) = averagingPhase(l) |
228 |
averageCycle(n) = repeatCycle(l) |
averageCycle(n) = repeatCycle(l) |
229 |
ELSEIF (averagingFreq(l).NE.0. .OR. repeatCycle(l).NE.0) THEN |
ELSEIF (averagingFreq(l).NE.0. .OR. repeatCycle(l).NE.0) THEN |
230 |
WRITE(msgBuf,'(2A,F17.6,I3)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,F18.6,I3)') 'DIAGNOSTICS_READPARMS: ', |
231 |
& 'unvalid Average-Freq & Cycle:', |
& 'unvalid Average-Freq & Cycle:', |
232 |
& averagingFreq(l), repeatCycle(l) |
& averagingFreq(l), repeatCycle(l) |
233 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
296 |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
297 |
& 'when trying to add list l=', l |
& 'when trying to add list l=', l |
298 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
299 |
WRITE(msgBuf,'(2A,F17.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
300 |
& ' Frq=', frequency(l), ', filename: ', filename(l) |
& ' Frq=', frequency(l), ', filename: ', filename(l) |
301 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
302 |
STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS' |
STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS' |
432 |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
433 |
& 'when trying to add stat_list l=', l |
& 'when trying to add stat_list l=', l |
434 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
435 |
WRITE(msgBuf,'(2A,F17.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
436 |
& ' Frq=', stat_freq(l), ', stat_fname: ', stat_fname(l) |
& ' Frq=', stat_freq(l), ', stat_fname: ', stat_fname(l) |
437 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
438 |
STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS' |
STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS' |
452 |
& '-----------------------------------------------------' |
& '-----------------------------------------------------' |
453 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
454 |
DO n = 1,nlists |
DO n = 1,nlists |
455 |
WRITE(msgBuf,'(2a)') 'Creating Output Stream: ', fnames(n) |
WRITE(msgBuf,'(2A)') 'Creating Output Stream: ', fnames(n) |
456 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
457 |
WRITE(msgBuf,'(2(A,F17.6))') 'Output Frequency:', freq(n), |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n), |
458 |
& ' ; Phase: ', phase(n) |
& ' ; Phase: ', phase(n) |
459 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
460 |
WRITE(msgBuf,'(2(A,F17.6),A,I3)') |
WRITE(msgBuf,'(2(A,F18.6),A,I3)') |
461 |
& ' Averaging Freq.:', averageFreq(n), |
& ' Averaging Freq.:', averageFreq(n), |
462 |
& ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n) |
& ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n) |
463 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
479 |
ENDIF |
ENDIF |
480 |
DO nf = 1,nfields(n),10 |
DO nf = 1,nfields(n),10 |
481 |
m = MIN(nfields(n),nf+9) |
m = MIN(nfields(n),nf+9) |
482 |
WRITE(msgBuf,'(21A)') 'Fields: ',(' ',flds(l,n),l=nf,m) |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(l,n),l=nf,m) |
483 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
484 |
ENDDO |
ENDDO |
485 |
ENDDO |
ENDDO |
490 |
& ' DIAGNOSTICS_READPARMS: statistics diags. summary:' |
& ' DIAGNOSTICS_READPARMS: statistics diags. summary:' |
491 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
492 |
DO n = 1,diagSt_nbLists |
DO n = 1,diagSt_nbLists |
493 |
WRITE(msgBuf,'(2a)') 'Creating Stats. Output Stream: ', |
WRITE(msgBuf,'(2A)') 'Creating Stats. Output Stream: ', |
494 |
& diagSt_Fname(n) |
& diagSt_Fname(n) |
495 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
496 |
WRITE(msgBuf,'(2(A,F17.6))') 'Output Frequency:', |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', |
497 |
& diagSt_freq(n), ' ; Phase: ', diagSt_phase(n) |
& diagSt_freq(n), ' ; Phase: ', diagSt_phase(n) |
498 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
499 |
WRITE(msgBuf,'(A)') ' Regions : ' |
WRITE(msgBuf,'(A)') ' Regions: ' |
500 |
l = 12 |
l = 10 |
501 |
DO j=0,nRegions |
DO j=0,nRegions |
502 |
IF ( diagSt_region(j,n).GE.1 ) THEN |
IF ( diagSt_region(j,n).GE.1 ) THEN |
|
IF (l+3.LE.MAX_LEN_MBUF) WRITE(msgBuf,'(A,I3)') msgBuf(1:l),j |
|
503 |
l = l+3 |
l = l+3 |
504 |
|
IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j |
505 |
ENDIF |
ENDIF |
506 |
ENDDO |
ENDDO |
507 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
508 |
WRITE(msgBuf,*) 'Fields: ', |
DO nf = 1,diagSt_nbFlds(n),10 |
509 |
& (' ',diagSt_Flds(l,n),l=1,diagSt_nbFlds(n)) |
m = MIN(diagSt_nbFlds(n),nf+9) |
510 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
WRITE(msgBuf,'(21A)') ' Fields: ', |
511 |
|
& (' ',diagSt_Flds(l,n),l=nf,m) |
512 |
|
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
513 |
|
ENDDO |
514 |
ENDDO |
ENDDO |
515 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |
516 |
& '-----------------------------------------------------' |
& '-----------------------------------------------------' |