pkg/mdsio/mdsio_write_rl_vec.F

C $Header: $
C $Name: $

#include "MDSIO_OPTIONS.h"

      subroutine MDS_WRITE_RL_VEC( dUnit, irec, narr, arr, mythid )
C IN:
C   dunit       integer - 'Opened' I/O channel
C   irec        integer - record number to write
C   narr        integer - dimension off array "arr"
C   arr         _RL     - model tiled vector
C   mythid      integer - thread id
C
C Created: 03/29/99 eckert@mit.edu + adcroft@mit.edu

      implicit none

#include "EEPARAMS.h"

C Arguments
      integer dUnit
      integer irec
      integer narr
      integer mythid
      _RL arr(narr)
C Local
      character*(max_len_mbuf) msgbuf
C     ------------------------------------------------------------------
      write(msgbuf,'(a,i9.8,2x,i9.8)')
     &  ' MDS_WRITE_RL_VEC: irec = ',irec,narr
      call print_message( msgbuf, standardmessageunit,
     &                    SQUEEZE_RIGHT , mythid)
      write(dUnit,rec=irec) arr
C     ------------------------------------------------------------------
      return
      end
1	adcroft	1.1	C $Header: $
2			C $Name: $
3
4			#include "MDSIO_OPTIONS.h"
5
6			subroutine MDS_WRITE_RL_VEC( dUnit, irec, narr, arr, mythid )
7			C IN:
8			C dunit integer - 'Opened' I/O channel
9			C irec integer - record number to write
10			C narr integer - dimension off array "arr"
11			C arr _RL - model tiled vector
12			C mythid integer - thread id
13			C
14			C Created: 03/29/99 eckert@mit.edu + adcroft@mit.edu
15
16			implicit none
17
18			#include "EEPARAMS.h"
19
20			C Arguments
21			integer dUnit
22			integer irec
23			integer narr
24			integer mythid
25			_RL arr(narr)
26			C Local
27			character*(max_len_mbuf) msgbuf
28			C ------------------------------------------------------------------
29			write(msgbuf,'(a,i9.8,2x,i9.8)')
30			& ' MDS_WRITE_RL_VEC: irec = ',irec,narr
31			call print_message( msgbuf, standardmessageunit,
32			& SQUEEZE_RIGHT , mythid)
33			write(dUnit,rec=irec) arr
34			C ------------------------------------------------------------------
35			return
36			end