/[MITgcm]/MITgcm/eesupp/inc/DFILE.h
ViewVC logotype

Contents of /MITgcm/eesupp/inc/DFILE.h

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


Revision 1.5 - (show annotations) (download)
Sun Feb 4 14:38:41 2001 UTC (23 years, 8 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint57m_post, checkpoint52l_pre, ecco_c44_e19, hrcube4, hrcube5, checkpoint46l_post, checkpoint57g_pre, checkpoint46g_pre, checkpoint47c_post, release1_p13_pre, checkpoint50c_post, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint46f_post, checkpoint52d_pre, checkpoint57g_post, checkpoint48e_post, checkpoint56b_post, checkpoint50g_post, checkpoint57y_post, checkpoint46b_post, checkpoint52j_pre, checkpoint43a-release1mods, checkpoint51o_pre, checkpoint44g_post, checkpoint54d_post, checkpoint48c_post, checkpoint54e_post, ecco_c50_e32, ecco_c50_e33, ecco_c50_e30, ecco_c50_e31, release1_p13, checkpoint40pre3, checkpoint40pre2, checkpoint40pre1, checkpoint51l_post, checkpoint40pre7, checkpoint40pre6, checkpoint48i_post, checkpoint57r_post, checkpoint40pre9, checkpoint40pre8, checkpoint46l_pre, checkpoint57d_post, checkpoint57i_post, checkpoint50d_pre, checkpoint52k_post, chkpt44d_post, checkpoint59, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint51, checkpoint53, checkpoint52, release1_p8, release1_p9, checkpoint50d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint58f_post, checkpoint52f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint57z_post, checkpoint54f_post, checkpoint51f_post, checkpoint62a, release1_b1, checkpoint48b_post, ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, checkpoint58y_post, checkpoint43, checkpoint51d_post, checkpoint48c_pre, checkpoint55a_post, checkpoint51t_post, checkpoint58t_post, checkpoint38, checkpoint51n_post, release1_chkpt44d_post, checkpoint55i_post, checkpoint57l_post, checkpoint52i_pre, checkpoint57h_post, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint57t_post, checkpoint55c_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, checkpoint57v_post, checkpoint57f_post, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, icebear5, icebear4, icebear3, icebear2, checkpoint53d_post, checkpoint46d_pre, checkpoint60, checkpoint61, checkpoint62, checkpoint57a_post, checkpoint48d_post, release1-branch_tutorials, checkpoint57h_pre, checkpoint57x_post, checkpoint48f_post, checkpoint45d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint46j_pre, checkpoint58w_post, ecco_c50_e28, checkpoint51l_pre, checkpoint52m_post, checkpoint47d_pre, checkpoint57y_pre, chkpt44a_post, checkpoint55g_post, checkpoint44h_pre, checkpoint48h_post, checkpoint51q_post, checkpoint40pre4, ecco_c50_e29, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, checkpoint46b_pre, chkpt44c_pre, checkpoint58o_post, checkpoint52h_pre, checkpoint45a_post, checkpoint57c_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, hrcube_1, checkpoint58p_post, checkpoint58q_post, checkpoint51m_post, checkpoint55d_post, checkpoint44e_post, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, release1_p12, checkpoint58e_post, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, pre38tag1, checkpoint58m_post, checkpoint47a_post, ecco_c50_e33a, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, branchpoint-genmake2, checkpoint54a_post, checkpoint46e_pre, checkpoint55h_post, checkpoint58n_post, checkpoint51r_post, checkpoint45b_post, checkpoint51i_post, checkpoint57e_post, release1-branch-end, c37_adj, release1_final_v1, checkpoint55b_post, checkpoint51b_post, release1_p12_pre, checkpoint46c_pre, checkpoint53a_post, checkpoint44f_post, checkpoint47b_post, checkpoint44b_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, ecco_c51_e34, checkpoint46h_pre, checkpoint52d_post, checkpoint53g_post, checkpoint46m_post, checkpoint57p_post, checkpint57u_post, checkpoint46a_pre, checkpoint50c_pre, checkpoint45c_post, checkpoint57q_post, mitgcm_mapl_00, ecco_ice2, ecco_ice1, checkpoint44h_post, pre38-close, eckpoint57e_pre, checkpoint46g_post, checkpoint51c_post, checkpoint58k_post, checkpoint39, checkpoint52a_pre, checkpoint37, checkpoint36, checkpoint35, checkpoint46i_post, checkpoint58v_post, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, ecco_c44_e25, checkpoint51i_pre, checkpoint48a_post, checkpoint56a_post, checkpoint58l_post, checkpoint53f_post, checkpoint47j_post, checkpoint54a_pre, checkpoint53b_pre, branch-exfmods-tag, checkpoint40pre5, checkpoint57h_done, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, ecco_c44_e22, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, checkpoint57j_post, checkpoint57f_pre, checkpoint61f, checkpoint46c_post, checkpoint58g_post, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, branch-netcdf, checkpoint52l_post, checkpoint58x_post, checkpoint61n, checkpoint52n_post, checkpoint46e_post, checkpoint59j, release1_beta1, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint51e_post, checkpoint44b_pre, checkpoint42, checkpoint57a_pre, checkpoint40, checkpoint41, checkpoint46, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint57o_post, checkpoint46h_post, checkpoint51o_post, checkpoint61q, checkpoint50, checkpoint57k_post, checkpoint51f_pre, chkpt44c_post, checkpoint61z, checkpoint53b_post, checkpoint47h_post, checkpoint52a_post, checkpoint57w_post, checkpoint61e, checkpoint44f_pre, checkpoint58i_post, checkpoint51g_post, ecco_c52_e35, checkpoint46d_post, checkpoint50b_post, checkpoint58c_post, checkpoint58u_post, release1-branch_branchpoint, checkpoint52f_pre, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint61g, checkpoint61d, checkpoint54c_post, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint51a_post, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint51p_post, checkpoint48g_post, checkpoint61x, checkpoint61y, checkpoint51u_post
Branch point for: c24_e25_ice, branch-exfmods-curt, release1_coupled, release1_final, release1-branch, branch-genmake2, release1, branch-nonh, tg2-branch, ecco-branch, release1_50yr, netcdf-sm0, icebear, checkpoint51n_branch, pre38
Changes since 1.4: +2 -1 lines
File MIME type: text/plain
Made sure each .F and .h file had
the CVS keywords Header and Name at its start.
Most had header but very few currently have Name, so
lots of changes!

1 C $Header: /u/gcmpack/models/MITgcmUV/eesupp/inc/DFILE.h,v 1.4 2000/03/15 16:00:50 adcroft Exp $
2 C $Name: $
3
4 #ifdef USE_DFILE
5
6 C /==========================================================\
7 C | DFILE.h |
8 C |==========================================================|
9 C | Header file for binary dump file I/O structures. |
10 C \==========================================================/
11 C Compile time constants
12 C ioUnitsPerThread - Number of ioUnits allowed
13 C busyUnit - Status flag. Indicates whether unit
14 C freeUnit is open
15 C accessModeRO - Read-only v. read-write flag
16 C accessModeRW
17 C errorModeSTOP - Indicates action on I/O error
18 C errorModeCONT
19 INTEGER ioUnitsPerThread
20 PARAMETER ( ioUnitsPerThread = 1 )
21 INTEGER busyUnit
22 PARAMETER ( busyUnit = 0 )
23 INTEGER freeUnit
24 PARAMETER ( freeUnit = 1 )
25 INTEGER accessModeRO
26 PARAMETER ( accessModeRO = 0 )
27 INTEGER accessModeRW
28 PARAMETER ( accessModeRW = 1 )
29 INTEGER errorModeSTOP
30 PARAMETER ( errorModeSTOP = 0 )
31 INTEGER errorModeCONT
32 PARAMETER ( errorModeCONT = 1 )
33 INTEGER metaDataNotWritten
34 PARAMETER ( metaDataNotWritten = 0 )
35 INTEGER metaDataWritten
36 PARAMETER ( metaDataWritten = 1 )
37
38 C mUnit - Fortran unit number for metafile
39 C dUnit - Fortran unit number for data
40 C unitStatus - Busy/Free status flag
41 C nameOfMFile - Name of metadata file used in I/O
42 C nameOfDFile - Name of data file used in I/O
43 C accessMode - Access mode that was set when this unit was opened.
44 C Access mode is either read-only or
45 C read-write.
46 C errorMode - Error mode that was set when this unit was opened.
47 C Error mode is either STOP on error which means the
48 C program halts or continue or error. For continue
49 C error the program usually tries to write an error
50 C message to stderr. Howeever, the most common cause for
51 C an IO error is a full disk in which case that
52 C error message may be lost!
53 C theAcessMode - The current acces mode. This will be the mode
54 C associated with a file that is opened.
55 C theErrorMode - The current error mode. This will be the mode
56 C associated with a file that is opened.
57 COMMON /DFILE_I/ mUnitNumber, dUnitNumber, unitStatus,
58 & accessMode, errorMode,
59 & theAccessMode, theErrorMode, metaDataStatus
60 INTEGER mUnitNumber(ioUnitsPerThread,MAX_NO_THREADS)
61 INTEGER dUnitNumber(ioUnitsPerThread,MAX_NO_THREADS)
62 INTEGER unitStatus (ioUnitsPerThread,MAX_NO_THREADS)
63 INTEGER accessMode (ioUnitsPerThread,MAX_NO_THREADS)
64 INTEGER errorMode (ioUnitsPerThread,MAX_NO_THREADS)
65 INTEGER metaDataStatus(ioUnitsPerThread,MAX_NO_THREADS)
66 INTEGER theAccessMode
67 INTEGER theErrorMode
68
69 C nameOfMFile - Name of metadata file used in I/O
70 C nameOfDFile - Name of data file used in I/O
71 COMMON /DFILE_C/ nameOfMfile, nameOfDfile
72 CHARACTER*(MAX_LEN_FNAM)
73 & nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS)
74 CHARACTER*(MAX_LEN_FNAM)
75 & nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS)
76
77 C ioBuf_R4 - IO buffer for 32-bit floating point IO.
78 C Sized to fit anything up to a global domain 3d field.
79 C ( but without overlaps )
80 C ioBuf_R8 - IO buffer for 64-bit floating point IO.
81 C Sized to fit anything up to a global domain 3d field.
82 C ( but without overlaps )
83 COMMON /DFILE_R/
84 & ioBuf_R8, ioBuf_R4
85 Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
86 Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
87
88 #endif /* USE_DFILE */

  ViewVC Help
Powered by ViewVC 1.1.22