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	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 */