pkg/exf/EXF_INTERP_SIZE.h

C $Header:  $
C $Name:  $

CBOP
C    !ROUTINE: EXF_INTERP_SIZE.h
C    !INTERFACE:
C #include EXF_INTERP_SIZE.h

C     ==================================================================
C     HEADER EXF_INTERP_SIZE.h
C     ==================================================================

C    !DESCRIPTION:
C   Contains maximum size of original input grid from which interpolation
C    to model grid is done.
CEOP

#ifdef USE_EXF_INTERPOLATION

C-  Note: Any src code that uses EXF_PARAM.h needs also MAX_LAT_INC definition;
C     to avoid to add this Header everywhere, keep MAX_LAT_INC in EXF_PARAM.h
c     INTEGER MAX_LAT_INC
c     PARAMETER(MAX_LAT_INC = 1279)

#ifndef EXF_INTERP_USE_DYNALLOC
C-  To read input data without dynamical allocation (INTERP_USE_DYNALLOC undef):
C     exf_max_nLon :: maximum size of original grid (longitudinal direction)
C     exf_max_nLat :: maximum size of original grid (latitudinal direction)
C     exf_interp_bufferSize :: buffer maximum size
      INTEGER    exf_max_nLon, exf_max_nLat
      INTEGER    exf_interp_bufferSize
      PARAMETER( exf_max_nLon = 520 )
      PARAMETER( exf_max_nLat = 260 )

C   Buffer size was set to 65000 (allowing to read-in a 1x1 global data set);
C   increased to 140000 to accommodate for ECMWF-INTERIM (512 x 256)
      PARAMETER( exf_interp_bufferSize = 140000 )
#endif /* ndef EXF_INTERP_USE_DYNALLOC */

#else /* USE_EXF_INTERPOLATION */

C-- Set dummy dimension
      INTEGER    exf_max_nLon, exf_max_nLat
      INTEGER    exf_interp_bufferSize
      PARAMETER( exf_max_nLon = 1 )
      PARAMETER( exf_max_nLat = 1 )
      PARAMETER( exf_interp_bufferSize = 1 )

#endif /* USE_EXF_INTERPOLATION */
1	jmc	1.1	C $Header: $
2			C $Name: $
3
4			CBOP
5			C !ROUTINE: EXF_INTERP_SIZE.h
6			C !INTERFACE:
7			C #include EXF_INTERP_SIZE.h
8
9			C ==================================================================
10			C HEADER EXF_INTERP_SIZE.h
11			C ==================================================================
12
13			C !DESCRIPTION:
14			C Contains maximum size of original input grid from which interpolation
15			C to model grid is done.
16			CEOP
17
18			#ifdef USE_EXF_INTERPOLATION
19
20			C- Note: Any src code that uses EXF_PARAM.h needs also MAX_LAT_INC definition;
21			C to avoid to add this Header everywhere, keep MAX_LAT_INC in EXF_PARAM.h
22			c INTEGER MAX_LAT_INC
23			c PARAMETER(MAX_LAT_INC = 1279)
24
25			#ifndef EXF_INTERP_USE_DYNALLOC
26			C- To read input data without dynamical allocation (INTERP_USE_DYNALLOC undef):
27			C exf_max_nLon :: maximum size of original grid (longitudinal direction)
28			C exf_max_nLat :: maximum size of original grid (latitudinal direction)
29			C exf_interp_bufferSize :: buffer maximum size
30			INTEGER exf_max_nLon, exf_max_nLat
31			INTEGER exf_interp_bufferSize
32			PARAMETER( exf_max_nLon = 520 )
33			PARAMETER( exf_max_nLat = 260 )
34
35			C Buffer size was set to 65000 (allowing to read-in a 1x1 global data set);
36			C increased to 140000 to accommodate for ECMWF-INTERIM (512 x 256)
37			PARAMETER( exf_interp_bufferSize = 140000 )
38			#endif /* ndef EXF_INTERP_USE_DYNALLOC */
39
40			#else /* USE_EXF_INTERPOLATION */
41
42			C-- Set dummy dimension
43			INTEGER exf_max_nLon, exf_max_nLat
44			INTEGER exf_interp_bufferSize
45			PARAMETER( exf_max_nLon = 1 )
46			PARAMETER( exf_max_nLat = 1 )
47			PARAMETER( exf_interp_bufferSize = 1 )
48
49			#endif /* USE_EXF_INTERPOLATION */