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