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

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

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

revision 1.9 by heimbach, Sat Jun 23 14:48:08 2007 UTC revision 1.10 by heimbach, Mon Jun 25 15:41:57 2007 UTC
# Line 165  C       Print some statistics about inpu Line 165  C       Print some statistics about inpu
165  c-- Trick monitor output for testreport  c-- Trick monitor output for testreport
166  C-- by writing some statistics into dynstat fields  C-- by writing some statistics into dynstat fields
167  c-- which are tested by testreport  c-- which are tested by testreport
         CALL MON_SET_PREF('dynstat',myThid)  
 c--  
168          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
169             DO bi=myBxLo(myThid),myBxHi(myThid)             DO bi=myBxLo(myThid),myBxHi(myThid)
170                DO J=1-OLy,sNy+OLy                DO J=1-OLy,sNy+OLy
# Line 176  c-- Line 174  c--
174                ENDDO                ENDDO
175             ENDDO             ENDDO
176          ENDDO          ENDDO
177            CALL MON_SET_PREF(' ',myThid)
178            CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'cg2d_init_res',
179         &       maskH,maskH,rA ,drF,myThid)
180            CALL MON_SET_PREF('dynstat',myThid)
181          CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_theta',          CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_theta',
182       &       maskH,maskH,rA ,drF,myThid)       &       maskH,maskH,rA ,drF,myThid)
183    c--
184          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
185             DO bi=myBxLo(myThid),myBxHi(myThid)             DO bi=myBxLo(myThid),myBxHi(myThid)
186                DO J=1-OLy,sNy+OLy                DO J=1-OLy,sNy+OLy
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22