/[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.116 by molod, Mon May 23 19:58:04 2005 UTC
# Line 488  Cml) Line 488  Cml)
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
Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116
  ViewVC Help
Powered by ViewVC 1.1.22