/[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.17 by jmc, Thu Feb 10 16:30:39 2005 UTC revision 1.18 by dimitri, Thu May 5 16:41:54 2005 UTC
# Line 344  C--   fill tracer state-var diagnostics: Line 344  C--   fill tracer state-var diagnostics:
344           CALL DIAGNOSTICS_FILL(tmpMk,'SALTSQ  ',0,Nr,0,1,1,myThid)           CALL DIAGNOSTICS_FILL(tmpMk,'SALTSQ  ',0,Nr,0,1,1,myThid)
345          ENDIF          ENDIF
346                
347            IF ( DIAGNOSTICS_IS_ON('SALTanom',myThid) ) THEN
348             DO bj = myByLo(myThid), myByHi(myThid)
349              DO bi = myBxLo(myThid), myBxHi(myThid)
350               DO K=1,Nr
351                DO j = 1,sNy
352                 DO i = 1,sNx
353                   tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35
354                 ENDDO
355                ENDDO
356               ENDDO
357              ENDDO
358             ENDDO
359             CALL DIAGNOSTICS_FILL(tmpMk,'SALTanom',0,Nr,0,1,1,myThid)
360            ENDIF
361          
362            IF ( DIAGNOSTICS_IS_ON('SALTSQan',myThid) ) THEN
363             DO bj = myByLo(myThid), myByHi(myThid)
364              DO bi = myBxLo(myThid), myBxHi(myThid)
365               DO K=1,Nr
366                DO j = 1,sNy
367                 DO i = 1,sNx
368                   tmpMk(i,j,K,bi,bj) =
369         &               (salt(i,j,K,bi,bj)-35)*(salt(i,j,K,bi,bj)-35)
370                 ENDDO
371                ENDDO
372               ENDDO
373              ENDDO
374             ENDDO
375             CALL DIAGNOSTICS_FILL(tmpMk,'SALTSQan',0,Nr,0,1,1,myThid)
376            ENDIF
377          
378  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
379    
380          IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN          IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22