-
Notifications
You must be signed in to change notification settings - Fork 2
/
ppdef.h
63 lines (36 loc) · 1.2 KB
/
ppdef.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
! fortran unit of error messages
#define stderr 0
! fortran unit of screen output
#define stdout 6
! initfile global pattern matching (c function gmatch in library -lgmatch -lgen )
#define GMATCH
#define ALLOCATE_LOCAL_VARS
#define HAS_GETPID
! the exit subroutine is not conform with the Fortran 95 standard
! but it is very usefull for shell scripts
#define ERROR_STOP call exit(1)
! if strict Fortran 95 standard is required use, ERROR_STOP should be
! defined as
!#define ERROR_STOP stop
! uncomment this line for MISP compiler
! For g95, pgf90 and ifort flush can be called without a status variable
#define flush(unit,stat) FLUSH(unit)
! uncomment this line for parallel execution
!#define ASSIM_PARALLEL
#ifndef ASSIM_PARALLEL
#define procnum 1
#else
#define MPI
#endif
#define NETCDF
! if ASSIM_SCALING is defined to zero, then ensemble anomalies are scaled
! by 1/sqrt(r) where r is the ensemble size
! if ASSIM_SCALING is defined to one, then ensemble anomalies are scaled
! by 1/sqrt(r-1)
#define ASSIM_SCALING 1
! no parallel observation operator
#define EXACT_OBS_OPER
#define dbg(var) write(0,*) __FILE__,__LINE__,'var',var
! allow color output for test
#define COLOR
#define HAS_CHOLMOD