487 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
488 |
IF ( usediagnostics ) THEN |
IF ( usediagnostics ) THEN |
489 |
|
|
490 |
|
IF ( DIAGNOSTICS_IS_ON('PHIHYD ',myThid) ) THEN |
491 |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
492 |
|
ENDIF |
493 |
|
|
494 |
IF ( DIAGNOSTICS_IS_ON('PHIHYDSQ',myThid) ) THEN |
IF ( DIAGNOSTICS_IS_ON('PHIHYDSQ',myThid) ) THEN |
495 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |
506 |
ENDDO |
ENDDO |
507 |
ENDIF |
ENDIF |
508 |
|
|
509 |
|
IF ( DIAGNOSTICS_IS_ON('PHIBOT ',myThid) ) THEN |
510 |
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0,1,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0,1,0,1,1,myThid) |
511 |
|
ENDIF |
512 |
|
|
513 |
IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN |
IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN |
514 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |