/[MITgcm]/MITgcm/pkg/mdsio/mdsio_write_rl_vec.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_write_rl_vec.F

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

revision 1.3 by heimbach, Tue Jul 8 15:00:27 2003 UTC revision 1.4 by heimbach, Tue Nov 30 16:11:10 2004 UTC
# Line 28  C Arguments Line 28  C Arguments
28  C Local  C Local
29        character*(max_len_mbuf) msgbuf        character*(max_len_mbuf) msgbuf
30  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
31        if ( debugLevel .GE. debLevA ) then        if ( debugLevel .GE. debLevB ) then
32         write(msgbuf,'(a,i9.8,2x,i9.8)')         write(msgbuf,'(a,i9.8,2x,i9.8)')
33       &  ' MDS_WRITE_RL_VEC: irec = ',irec,narr       &  ' MDS_WRITE_RL_VEC: irec = ',irec,narr
34  cab change start  cab change start
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22