/[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.1 by adcroft, Tue Mar 6 15:28:54 2001 UTC revision 1.2 by adcroft, Thu Sep 13 17:43:56 2001 UTC
# Line 28  C Local Line 28  C Local
28  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
29        write(msgbuf,'(a,i9.8,2x,i9.8)')        write(msgbuf,'(a,i9.8,2x,i9.8)')
30       &  ' MDS_WRITE_RL_VEC: irec = ',irec,narr       &  ' MDS_WRITE_RL_VEC: irec = ',irec,narr
31    cab change start
32    #ifndef ALLOW_FLT
33        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
34       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
35    #endif
36    can change end
37        write(dUnit,rec=irec) arr        write(dUnit,rec=irec) arr
38  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
39        return        return
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22