-
Notifications
You must be signed in to change notification settings - Fork 14
/
misc_definitions_module.F90
49 lines (36 loc) · 1.79 KB
/
misc_definitions_module.F90
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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! MODULE MISC_DEFINITIONS_MODULE
!
! This module defines various non-meteorological constants that are used
! by other modules for readability.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
module misc_definitions_module
integer, parameter :: MAX_FILENAME_LEN = 1024
real, parameter :: NAN=1.E20
real, parameter :: NOT_MASKED = -2., &
MASKED_BOTH = -1., &
MASKED_WATER = 0., &
MASKED_LAND = 1.
integer, parameter :: OUTSIDE_DOMAIN=1E8, NOT_PROCESSED=1E9, INVALID=1E9
integer, parameter :: SIXTEEN_POINT=1, FOUR_POINT=2, N_NEIGHBOR=3, &
AVERAGE4=4, AVERAGE16=5, W_AVERAGE4=6, W_AVERAGE16=7, &
SEARCH=8
integer, parameter :: BOTTOM_TOP=1, TOP_BOTTOM=2
integer, parameter :: CONTINUOUS=0, CATEGORICAL=1, SP_CONTINUOUS=2
integer, parameter :: M=1, U=2, V=3, HH=4, VV=5, CORNER=6
integer, parameter :: ONETWOONE=1, SMTHDESMTH=2, SMTHDESMTH_SPECIAL=3
integer, parameter :: BINARY=1, NETCDF=2, GRIB1=3, HDF=4
integer, parameter :: BIG_ENDIAN=0, LITTLE_ENDIAN=1
! Projection codes for proj_info structure:
INTEGER, PUBLIC, PARAMETER :: PROJ_LATLON = 0
INTEGER, PUBLIC, PARAMETER :: PROJ_LC = 1
INTEGER, PUBLIC, PARAMETER :: PROJ_PS = 2
INTEGER, PUBLIC, PARAMETER :: PROJ_PS_WGS84 = 102
INTEGER, PUBLIC, PARAMETER :: PROJ_MERC = 3
INTEGER, PUBLIC, PARAMETER :: PROJ_GAUSS = 4
INTEGER, PUBLIC, PARAMETER :: PROJ_CYL = 5
INTEGER, PUBLIC, PARAMETER :: PROJ_CASSINI = 6
INTEGER, PUBLIC, PARAMETER :: PROJ_ALBERS_NAD83 = 105
INTEGER, PUBLIC, PARAMETER :: PROJ_ROTLL = 203
end module misc_definitions_module