/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_fill_state.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_fill_state.F

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

revision 1.35 by jmc, Mon Feb 5 03:14:26 2007 UTC revision 1.36 by molod, Wed Jul 11 15:11:05 2007 UTC
# Line 338  C     (next fill for these diagnostics w Line 338  C     (next fill for these diagnostics w
338             DO K=1,Nr             DO K=1,Nr
339              DO j = 1,sNy              DO j = 1,sNy
340               DO i = 1,sNx+1               DO i = 1,sNx+1
341                 tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj)*                 tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj)
342       .                    *86400./dTtracerLev(1)       .                    *86400./dTtracerLev(1)
343               ENDDO               ENDDO
344              ENDDO              ENDDO
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22