/[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.9 by edhill, Fri Jun 24 04:36:54 2005 UTC revision 1.10 by edhill, Wed Jul 6 21:18:33 2005 UTC
# Line 72  C---+----1----+----2----+----3----+----4 Line 72  C---+----1----+----2----+----3----+----4
72              mon_fname(k:k) = ' '              mon_fname(k:k) = ' '
73            ENDDO            ENDDO
74            mon_fname(1:12) = 'monitor_sice'            mon_fname(1:12) = 'monitor_sice'
           CALL MNC_CW_APPEND_VNAME(  
      &         'T', '-_-_--__-__t', 0,0, myThid)  
75            CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid)
76            CALL MNC_CW_I_W_S(            CALL MNC_CW_I_W_S(
77       &        'I',mon_fname,1,1,'T', myIter, myThid)       &        'I',mon_fname,1,1,'iter', myIter, myThid)
78            CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid)
79              CALL MNC_CW_RL_W_S(
80         &        'D',mon_fname,1,1,'T', myTime, myThid)
81            mon_write_mnc = .TRUE.            mon_write_mnc = .TRUE.
82          ENDIF          ENDIF
83  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22