/[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.117 by molod, Mon May 23 20:49:37 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         IF ( DIAGNOSTICS_IS_ON('PHIHYDSQ',myThid) ) THEN
495          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
# Line 504  Cml) Line 506  Cml)
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)
Legend:
Removed from v.1.117  
changed lines
  Added in v.1.118
  ViewVC Help
Powered by ViewVC 1.1.22