488 |
IF ( usediagnostics ) THEN |
IF ( usediagnostics ) THEN |
489 |
|
|
490 |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
491 |
|
|
492 |
|
IF ( DIAGNOSTICS_IS_ON('PHIHYDSQ',myThid) ) THEN |
493 |
|
DO bj = myByLo(myThid), myByHi(myThid) |
494 |
|
DO bi = myBxLo(myThid), myBxHi(myThid) |
495 |
|
DO k = 1,Nr |
496 |
|
DO j = 1,sNy |
497 |
|
DO i = 1,sNx |
498 |
|
tmpFld(i,j) = totPhihyd(i,j,L,bi,bj)*totPhihyd(i,j,L,bi,bj) |
499 |
|
ENDDO |
500 |
|
ENDDO |
501 |
|
CALL DIAGNOSTICS_FILL(tmpFld,'PHIHYDSQ',L,1,2,bi,bj,myThid) |
502 |
|
ENDDO |
503 |
|
ENDDO |
504 |
|
ENDDO |
505 |
|
ENDIF |
506 |
|
|
507 |
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0,1,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0,1,0,1,1,myThid) |
508 |
|
|
509 |
IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN |
IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN |