/[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.116 by molod, Mon May 23 19:58:04 2005 UTC revision 1.117 by molod, Mon May 23 20:49:37 2005 UTC
# Line 495  Cml) Line 495  Cml)
495           DO k = 1,Nr           DO k = 1,Nr
496            DO j = 1,sNy            DO j = 1,sNy
497             DO i = 1,sNx             DO i = 1,sNx
498               tmpFld(i,j) = totPhihyd(i,j,L,bi,bj)*totPhihyd(i,j,L,bi,bj)               tmpFld(i,j) = totPhihyd(i,j,k,bi,bj)*totPhihyd(i,j,k,bi,bj)
499             ENDDO             ENDDO
500            ENDDO            ENDDO
501            CALL DIAGNOSTICS_FILL(tmpFld,'PHIHYDSQ',L,1,2,bi,bj,myThid)            CALL DIAGNOSTICS_FILL(tmpFld,'PHIHYDSQ',k,1,2,bi,bj,myThid)
502           ENDDO           ENDDO
503          ENDDO          ENDDO
504          ENDDO          ENDDO
Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117
  ViewVC Help
Powered by ViewVC 1.1.22