/[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.29 by molod, Tue Jan 17 16:06:12 2006 UTC revision 1.30 by molod, Thu Feb 16 23:03:16 2006 UTC
# Line 336  C     (next fill for these diagnostics w Line 336  C     (next fill for these diagnostics w
336             DO K=1,Nr             DO K=1,Nr
337              DO j = 1,sNy              DO j = 1,sNy
338               DO i = 1,sNx               DO i = 1,sNx
339                 tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj)*
340         .                    *86400./dTtracerLev(1)
341               ENDDO               ENDDO
342              ENDDO              ENDDO
343             ENDDO             ENDDO
# Line 352  C     (next fill for these diagnostics w Line 353  C     (next fill for these diagnostics w
353              DO j = 1,sNy              DO j = 1,sNy
354               DO i = 1,sNx               DO i = 1,sNx
355                 tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj)
356         .                    *86400./dTtracerLev(1)
357               ENDDO               ENDDO
358              ENDDO              ENDDO
359             ENDDO             ENDDO
# Line 367  C     (next fill for these diagnostics w Line 369  C     (next fill for these diagnostics w
369              DO j = 1,sNy              DO j = 1,sNy
370               DO i = 1,sNx               DO i = 1,sNx
371                 tmpMk(i,j,K,bi,bj) = -theta(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = -theta(i,j,K,bi,bj)
372         .                    *86400./dTtracerLev(1)
373               ENDDO               ENDDO
374              ENDDO              ENDDO
375             ENDDO             ENDDO
# Line 382  C     (next fill for these diagnostics w Line 385  C     (next fill for these diagnostics w
385              DO j = 1,sNy              DO j = 1,sNy
386               DO i = 1,sNx               DO i = 1,sNx
387                 tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj)
388         .                    *86400./dTtracerLev(1)
389               ENDDO               ENDDO
390              ENDDO              ENDDO
391             ENDDO             ENDDO
# Line 638  C       this means that diag fill is cal Line 642  C       this means that diag fill is cal
642              DO j = 1,sNy              DO j = 1,sNy
643               DO i = 1,sNx               DO i = 1,sNx
644                 tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)
645         .                    *86400./dTtracerLev(1)
646               ENDDO               ENDDO
647              ENDDO              ENDDO
648             ENDDO             ENDDO
# Line 653  C       this means that diag fill is cal Line 658  C       this means that diag fill is cal
658              DO j = 1,sNy              DO j = 1,sNy
659               DO i = 1,sNx               DO i = 1,sNx
660                 tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)
661         .                    *86400./dTtracerLev(1)
662               ENDDO               ENDDO
663              ENDDO              ENDDO
664             ENDDO             ENDDO
# Line 668  C       this means that diag fill is cal Line 674  C       this means that diag fill is cal
674              DO j = 1,sNy              DO j = 1,sNy
675               DO i = 1,sNx               DO i = 1,sNx
676                 tmpMk(i,j,K,bi,bj) = theta(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = theta(i,j,K,bi,bj)
677         .                    *86400./dTtracerLev(1)
678               ENDDO               ENDDO
679              ENDDO              ENDDO
680             ENDDO             ENDDO
# Line 683  C       this means that diag fill is cal Line 690  C       this means that diag fill is cal
690              DO j = 1,sNy              DO j = 1,sNy
691               DO i = 1,sNx               DO i = 1,sNx
692                 tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)                 tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)
693         .                    *86400./dTtracerLev(1)
694               ENDDO               ENDDO
695              ENDDO              ENDDO
696             ENDDO             ENDDO
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22