/[MITgcm]/MITgcm/pkg/land/land_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_monitor.F

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

revision 1.6 by edhill, Wed Oct 13 04:37:37 2004 UTC revision 1.7 by edhill, Sat Dec 18 02:18:55 2004 UTC
# Line 94  C---+----1----+----2----+----3----+----4 Line 94  C---+----1----+----2----+----3----+----4
94            ENDDO            ENDDO
95            mon_fname(1:12) = 'monitor_land'            mon_fname(1:12) = 'monitor_land'
96            CALL MNC_CW_APPEND_VNAME(            CALL MNC_CW_APPEND_VNAME(
97       &         'iter', '-_-_--__-__t', 0,0, myThid)       &         'T', '-_-_--__-__t', 0,0, myThid)
98            CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid)
99            CALL MNC_CW_I_W_S(            CALL MNC_CW_I_W_S(
100       &        'I',mon_fname,1,1,'iter', myIter, myThid)       &        'I',mon_fname,1,1,'T', myIter, myThid)
101            CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid)
102            mon_write_mnc = .TRUE.            mon_write_mnc = .TRUE.
103          ENDIF          ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22