/[MITgcm]/MITgcm/pkg/monitor/mon_out.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_out.F

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

revision 1.10 by edhill, Fri Sep 10 12:19:31 2004 UTC revision 1.11 by edhill, Wed Sep 15 21:23:32 2004 UTC
# Line 205  C     write(*,*) 'mon_write_stdout = ''' Line 205  C     write(*,*) 'mon_write_stdout = '''
205       &           mon_vname, '-_-_--__-__t', 0,0, myThid)       &           mon_vname, '-_-_--__-__t', 0,0, myThid)
206              IF (itype .EQ. 1)              IF (itype .EQ. 1)
207       &           CALL MNC_CW_I_W(       &           CALL MNC_CW_I_W(
208       &           'I','monitor',1,1,mon_vname, ival, myThid)       &           'I',mon_fname,1,1,mon_vname, ival, myThid)
209              IF (itype .EQ. 2)              IF (itype .EQ. 2)
210       &           CALL MNC_CW_RL_W(       &           CALL MNC_CW_RL_W(
211       &           'D','monitor',1,1,mon_vname, dval, myThid)       &           'D',mon_fname,1,1,mon_vname, dval, myThid)
212            ENDIF            ENDIF
213  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
214    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22