/[MITgcm]/MITgcm/lsopt/dostore.F
ViewVC logotype

Contents of /MITgcm/lsopt/dostore.F

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

Revision 1.3 - (show annotations) (download)
Thu Sep 9 15:51:26 2004 UTC (19 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint57g_pre, checkpoint57s_post, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint55, checkpoint57, checkpoint56, checkpoint57n_post, checkpoint54f_post, checkpoint55i_post, checkpoint57l_post, checkpoint57t_post, checkpoint55c_post, checkpoint57v_post, checkpoint57f_post, checkpoint57a_post, checkpoint57h_pre, checkpoint57h_post, checkpoint55g_post, checkpoint57c_post, checkpoint55d_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, checkpoint55h_post, checkpoint57e_post, checkpoint55b_post, checkpoint55f_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint56a_post, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint57k_post, checkpoint57w_post, checkpoint55e_post
Changes since 1.2: +6 -1 lines 
Small modifs and fixes
(mostly change to real*4 for large-scale ECCO runs)
1 subroutine dostore( n, x, store, j )
2 c
3 c arguments
4 c
5 integer n, j
6 cph double precision x(n)
7 real*4 x(n)
8 logical store
9
10 common /xxstore/ itape, ntape, isize
11 integer itape, ntape, isize
12
13 cph(
14 print *, 'pathei in dostore ',
15 & store, n, ntape, j
16 cph)
17 if (store) then
18 write( ntape, rec=j ) x
19 else
20 read( ntape, rec=j ) x
21 endif
22
23 return
24 end
  ViewVC Help
Powered by ViewVC 1.1.22