Context Navigation

par_fabm.F90 @ 10390

Last change on this file since 10390 was 10390, checked in by dford, 6 years ago
Add 25-hour mean and top-middle-bottom diagnostics for all variables available through FABM, and set up indices for specific variables for easier access by OBS/ASM. See internal Met Office NEMO ticket 760.
File size: 1.9 KB

Line
1	MODULE par_fabm
2
3	USE fabm
4
5	IMPLICIT NONE
6
7	TYPE (type_model) :: model !FABM model instance
8
9	INTEGER, PUBLIC :: jp_fabm0, jp_fabm1, jp_fabm, &
10	jp_fabm_surface, jp_fabm_bottom, &
11	jp_fabm_m1, jp_fabm_2d, jp_fabm_3d
12
13	! Variables needed for OBS/ASM
14	INTEGER, PUBLIC :: jp_fabm_chl1, jp_fabm_chl2, &
15	jp_fabm_chl3, jp_fabm_chl4, &
16	jp_fabm_p1c, jp_fabm_p1n, &
17	jp_fabm_p1p, jp_fabm_p1s, &
18	jp_fabm_p2c, jp_fabm_p2n, &
19	jp_fabm_p2p, jp_fabm_p3c, &
20	jp_fabm_p3n, jp_fabm_p3p, &
21	jp_fabm_p4c, jp_fabm_p4n, &
22	jp_fabm_p4p, jp_fabm_z4c, &
23	jp_fabm_z5c, jp_fabm_z5n, &
24	jp_fabm_z5p, jp_fabm_z6c, &
25	jp_fabm_z6n, jp_fabm_z6p, &
26	jp_fabm_n1p, jp_fabm_n3n, &
27	jp_fabm_n4n, jp_fabm_n5s, &
28	jp_fabm_o2o, jp_fabm_o3c, &
29	jp_fabm_o3a, jp_fabm_o3ph, &
30	jp_fabm_o3pc
31
32	#if defined key_fabm
33	!!---------------------------------------------------------------------
34	!! 'key_fabm' FABM tracers
35	!!---------------------------------------------------------------------
36	LOGICAL, PUBLIC, PARAMETER :: lk_fabm = .TRUE. !: FABM flag
37	LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) :: lk_rad_fabm !: FABM negativity correction flag array
38	#else
39	!!---------------------------------------------------------------------
40	!! Default No user defined tracers (FABM)
41	!!---------------------------------------------------------------------
42	LOGICAL, PUBLIC, PARAMETER :: lk_fabm = .FALSE. !: FABM flag
43	#endif
44
45	!!======================================================================
46	END MODULE par_fabm

Note: See TracBrowser for help on using the repository browser.