/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.115 by jmc, Fri Apr 15 14:06:15 2005 UTC revision 1.118 by molod, Sat Jun 25 13:42:52 2005 UTC
# Line 487  Cml) Line 487  Cml)
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
495            DO bj = myByLo(myThid), myByHi(myThid)
496            DO bi = myBxLo(myThid), myBxHi(myThid)
497             DO k = 1,Nr
498              DO j = 1,sNy
499               DO i = 1,sNx
500                 tmpFld(i,j) = totPhihyd(i,j,k,bi,bj)*totPhihyd(i,j,k,bi,bj)
501               ENDDO
502              ENDDO
503              CALL DIAGNOSTICS_FILL(tmpFld,'PHIHYDSQ',k,1,2,bi,bj,myThid)
504             ENDDO
505            ENDDO
506            ENDDO
507           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)
Legend:
Removed from v.1.115  
changed lines
  Added in v.1.118
  ViewVC Help
Powered by ViewVC 1.1.22