/[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.11 by edhill, Wed Sep 15 21:23:32 2004 UTC revision 1.12 by edhill, Wed Sep 29 15:21:42 2004 UTC
# Line 124  C     I0     - Temps used in calculating Line 124  C     I0     - Temps used in calculating
124        INTEGER  i, I0,I1, IL        INTEGER  i, I0,I1, IL
125        CHARACTER*(100) mon_vname        CHARACTER*(100) mon_vname
126        INTEGER  nvname        INTEGER  nvname
127          INTEGER  ivarr(1)
128          REAL*8   dvarr(1)
129    
130          ivarr(1) = ival
131          dvarr(1) = dval
132    
133        msgBuf = ' '        msgBuf = ' '
134        lBuf   = 0        lBuf   = 0
# Line 205  C     write(*,*) 'mon_write_stdout = ''' Line 210  C     write(*,*) 'mon_write_stdout = '''
210       &           mon_vname, '-_-_--__-__t', 0,0, myThid)       &           mon_vname, '-_-_--__-__t', 0,0, myThid)
211              IF (itype .EQ. 1)              IF (itype .EQ. 1)
212       &           CALL MNC_CW_I_W(       &           CALL MNC_CW_I_W(
213       &           'I',mon_fname,1,1,mon_vname, ival, myThid)       &           'I',mon_fname,1,1,mon_vname, ivarr, myThid)
214              IF (itype .EQ. 2)              IF (itype .EQ. 2)
215       &           CALL MNC_CW_RL_W(       &           CALL MNC_CW_RL_W(
216       &           'D',mon_fname,1,1,mon_vname, dval, myThid)       &           'D',mon_fname,1,1,mon_vname, dvarr, myThid)
217            ENDIF            ENDIF
218  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
219    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22