/[MITgcm]/MITgcm/pkg/thsice/thsice_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_monitor.F

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

revision 1.5 by jmc, Fri Dec 17 04:59:48 2004 UTC revision 1.6 by edhill, Sat Dec 18 02:18:56 2004 UTC
# Line 77  C---+----1----+----2----+----3----+----4 Line 77  C---+----1----+----2----+----3----+----4
77            ENDDO            ENDDO
78            mon_fname(1:12) = 'monitor_sice'            mon_fname(1:12) = 'monitor_sice'
79            CALL MNC_CW_APPEND_VNAME(            CALL MNC_CW_APPEND_VNAME(
80       &         'iter', '-_-_--__-__t', 0,0, myThid)       &         'T', '-_-_--__-__t', 0,0, myThid)
81            CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid)
82            CALL MNC_CW_I_W_S(            CALL MNC_CW_I_W_S(
83       &        'I',mon_fname,1,1,'iter', myIter, myThid)       &        'I',mon_fname,1,1,'T', myIter, myThid)
84            CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid)
85            mon_write_mnc = .TRUE.            mon_write_mnc = .TRUE.
86          ENDIF          ENDIF
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22