/[MITgcm]/MITgcm/pkg/seaice/seaice_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_do_diags.F

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

revision 1.25 by heimbach, Mon Oct 23 16:29:48 2006 UTC revision 1.26 by dimitri, Fri Nov 3 23:02:47 2006 UTC
# Line 373  C---+----1----+----2----+----3----+----4 Line 373  C---+----1----+----2----+----3----+----4
373         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
374          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
375           CALL DIAGNOSTICS_FILL(AREA(1-oLx,1-oLy,1,bi,bj),           CALL DIAGNOSTICS_FILL(AREA(1-oLx,1-oLy,1,bi,bj),
376       &          'SIarea  ',0,1 ,0,bi,bj,myThid)       &          'SIarea  ',0,1 ,2,bi,bj,myThid)
377           CALL DIAGNOSTICS_FILL(HEFF(1-oLx,1-oLy,1,bi,bj),           CALL DIAGNOSTICS_FILL(HEFF(1-oLx,1-oLy,1,bi,bj),
378       &        'SIheff  ',0,1 ,0,bi,bj,myThid)       &        'SIheff  ',0,1 ,2,bi,bj,myThid)
379           CALL DIAGNOSTICS_FILL(UICE(1-oLx,1-oLy,1,bi,bj),           CALL DIAGNOSTICS_FILL(UICE(1-oLx,1-oLy,1,bi,bj),
380       &        'SIuice  ',0,1 ,0,bi,bj,myThid)       &        'SIuice  ',0,1 ,2,bi,bj,myThid)
381           CALL DIAGNOSTICS_FILL(VICE(1-oLx,1-oLy,1,bi,bj),           CALL DIAGNOSTICS_FILL(VICE(1-oLx,1-oLy,1,bi,bj),
382       &        'SIvice  ',0,1 ,0,bi,bj,myThid)       &        'SIvice  ',0,1 ,2,bi,bj,myThid)
383          ENDDO          ENDDO
384         ENDDO         ENDDO
385  c  c
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22