/[MITgcm]/MITgcm/verification/cfc_example/code/MDSIO_BUFF_3D.h
ViewVC logotype

Contents of /MITgcm/verification/cfc_example/code/MDSIO_BUFF_3D.h

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


Revision 1.1 - (show annotations) (download)
Wed Jan 9 22:26:50 2013 UTC (11 years, 2 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint64e, checkpoint64d, checkpoint64c, checkpoint64g, checkpoint64f, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint65, checkpoint64j, checkpoint64m, checkpoint64l, HEAD
File MIME type: text/plain
increase 3d-buffer size for some pkg/layers output with MDSIO

1 C $Header: /u/gcmpack/MITgcm/pkg/mdsio/MDSIO_BUFF_3D.h,v 1.3 2010/12/23 02:42:16 jmc Exp $
2 C $Name: $
3
4 CBOP
5 C !ROUTINE: MDSIO_BUFF_3D.h
6 C !INTERFACE:
7 C include "MDSIO_BUFF_3D.h"
8 C
9 C !DESCRIPTION:
10 C *==========================================================*
11 C | MDSIO_BUFF_3D.h
12 C | o Shared 3-D Buffers used for I/O
13 C *==========================================================*
14 CEOP
15
16 C size3dBuf :: buffer 3rd dimension, corresponds to the maximum number
17 C of levels that can be read/written at a time.
18 C Note: minimum value = Nr, but in few cases (vertical interpolation,
19 C NrPhys from Fizhi, ...) needs to be larger. Here we pick 2*Nr
20 C which should be enough for most applications.
21 INTEGER size3dBuf
22 #ifdef ALLOW_FIZHI
23 PARAMETER ( size3dBuf = Nr+NrPhys )
24 #else
25 c PARAMETER ( size3dBuf = 2*Nr )
26 C increase buffer size (below) for some pkg/layers output:
27 PARAMETER ( size3dBuf = 3*Nr )
28 #endif
29
30 C-- COMMON /MDS_3D_BUFFERS/ 3-D Shared Local Buffers
31 C Those buffers have be in common block to be shared by all threads;
32 C considered to be "owned" by master-thread and any access by other
33 C than master thread needs to be put protected by BARRIER.
34 C shared3dBuf_rx :: Heap storage buffer to which master thread
35 C read-in/write-from data which all threads copy from
36 C (during read) or copy to (during write).
37 COMMON /MDS_3D_BUFFERS/ shared3dBuf_r8, shared3dBuf_r4
38 Real*8 shared3dBuf_r8( sNx*sNy*size3dBuf*nSx*nSy )
39 Real*4 shared3dBuf_r4( sNx*sNy*size3dBuf*nSx*nSy )
40
41 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

  ViewVC Help
Powered by ViewVC 1.1.22