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

Contents of /MITgcm/pkg/mdsio/mdsio_read_rl_vec.F

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

Revision 1.2 - (show annotations) (download)
Tue Jul 8 15:00:26 2003 UTC (20 years, 10 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint52d_pre, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint56, checkpoint53, checkpoint52, checkpoint52f_post, checkpoint54f_post, checkpoint51f_post, checkpoint51d_post, checkpoint55a_post, checkpoint51t_post, checkpoint51n_post, checkpoint55i_post, checkpoint52i_pre, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint55c_post, checkpoint51j_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint51l_pre, checkpoint52m_post, checkpoint53b_post, checkpoint55g_post, checkpoint51q_post, checkpoint52b_post, checkpoint51h_pre, checkpoint52h_pre, hrcube_1, checkpoint51m_post, checkpoint52c_post, checkpoint53c_post, checkpoint55d_pre, checkpoint55j_post, branchpoint-genmake2, checkpoint54a_post, checkpoint55h_post, checkpoint51r_post, checkpoint51i_post, checkpoint55b_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, checkpoint51c_post, checkpoint52a_pre, checkpoint52i_post, checkpoint54c_post, checkpoint51i_pre, checkpoint56a_post, checkpoint53f_post, checkpoint54a_pre, checkpoint53b_pre, checkpoint52j_post, branch-netcdf, checkpoint52l_post, checkpoint52n_post, checkpoint51e_post, checkpoint51o_post, checkpoint51f_pre, checkpoint52a_post, checkpoint51g_post, ecco_c52_e35, checkpoint52f_pre, checkpoint53d_pre, checkpoint55e_post, checkpoint51p_post, checkpoint51u_post, checkpoint55d_post
Branch point for: branch-genmake2, branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.1: +9 -4 lines 
o introducing integer flag debugLevel
o introducing pathname variable mdsioLocalDir for mdsio
1 C $Header: /u/gcmpack/MITgcm/pkg/mdsio/mdsio_read_rl_vec.F,v 1.1 2001/03/06 15:28:54 adcroft Exp $
2 C $Name: $
3
4 #include "MDSIO_OPTIONS.h"
5
6 subroutine MDS_READ_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 mythid integer - thread id
12 C OUT:
13 C arr _RL - model tiled vector
14 C
15 C Created: 03/29/99 eckert@mit.edu + adcroft@mit.edu
16
17 implicit none
18
19 #include "EEPARAMS.h"
20 #include "SIZE.h"
21 #include "PARAMS.h"
22
23 C Arguments
24 integer dUnit
25 integer irec
26 integer narr
27 _RL arr(narr)
28 integer mythid
29 C Local
30 character*(max_len_mbuf) msgbuf
31 C ------------------------------------------------------------------
32 if ( debugLevel .GE. debLevA ) then
33 write(msgbuf,'(a,i9.8,2x,i9.8)')
34 & ' MDS_READ_RL_VEC: irec = ',irec,narr
35 call print_message( msgbuf, standardmessageunit,
36 & SQUEEZE_RIGHT , mythid)
37 endif
38
39 read(dUnit,rec=irec) arr
40 C ------------------------------------------------------------------
41 return
42 end
  ViewVC Help
Powered by ViewVC 1.1.22