/[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.2 by jmc, Wed Apr 6 18:46:34 2005 UTC revision 1.3 by mlosch, Tue Mar 7 05:04:38 2006 UTC
# Line 47  C       Print some statistics about inpu Line 47  C       Print some statistics about inpu
47                ENDDO                ENDDO
48             ENDDO             ENDDO
49          ENDDO          ENDDO
50    #ifdef SEAICE_CGRID
51            CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_uice',
52         &       maskW,maskW,rAw,drF,myThid)
53    #else
54          CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_uice',          CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_uice',
55       &       UVM,UVM,rAz,drF,myThid)       &       UVM,UVM,rAz,drF,myThid)
56          CALL MON_SET_PREF('seaice',myThid)  #endif
57          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
58             DO bi=myBxLo(myThid),myBxHi(myThid)             DO bi=myBxLo(myThid),myBxHi(myThid)
59                DO J=1-OLy,sNy+OLy                DO J=1-OLy,sNy+OLy
# Line 59  C       Print some statistics about inpu Line 63  C       Print some statistics about inpu
63                ENDDO                ENDDO
64             ENDDO             ENDDO
65          ENDDO          ENDDO
66    #ifdef SEAICE_CGRID
67            CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_vice',
68         &       maskS,maskS,rAs,drF,myThid)
69    #else
70          CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_vice',          CALL MON_PRINTSTATS_RL(1,TMP_DIAG,'_vice',
71       &       UVM,UVM,rAz,drF,myThid)       &       UVM,UVM,rAz,drF,myThid)
72    #endif
73          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
74             DO bi=myBxLo(myThid),myBxHi(myThid)             DO bi=myBxLo(myThid),myBxHi(myThid)
75                DO J=1-OLy,sNy+OLy                DO J=1-OLy,sNy+OLy
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22