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

Annotation of /MITgcm/lsopt/dostore.F

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

Revision 1.3 - (hide annotations) (download)
Thu Sep 9 15:51:26 2004 UTC (19 years, 8 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 heimbach 1.2 subroutine dostore( n, x, store, j )
2     c
3     c arguments
4     c
5     integer n, j
6 heimbach 1.3 cph double precision x(n)
7     real*4 x(n)
8 heimbach 1.2 logical store
9    
10     common /xxstore/ itape, ntape, isize
11     integer itape, ntape, isize
12    
13 heimbach 1.3 cph(
14     print *, 'pathei in dostore ',
15     & store, n, ntape, j
16     cph)
17 heimbach 1.2 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