/[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.118 by molod, Sat Jun 25 13:42:52 2005 UTC revision 1.119 by jmc, Mon Jun 27 12:27:19 2005 UTC
# Line 487  Cml) Line 487  Cml)
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)
# Line 506  Cml) Line 504  Cml)
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)
Legend:
Removed from v.1.118  
changed lines
  Added in v.1.119
  ViewVC Help
Powered by ViewVC 1.1.22