source: branches/UKMO/AMM15_v3_6_STABLE_package_collate_xeps/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 11254

Last change on this file since 11254 was 11254, checked in by dford, 15 months ago

Add jp_fabm_xeps.

File size: 2.3 KB
Line 
1MODULE 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_o3ta,  jp_fabm_o3ba, &
30                      jp_fabm_o3pc,  jp_fabm_o3ph, &
31                      jp_fabm_r4n,   jp_fabm_r4c,  &
32                      jp_fabm_r4p,   jp_fabm_r6n,  &
33                      jp_fabm_r6c,   jp_fabm_r6p,  &
34                      jp_fabm_r6s,   jp_fabm_r8n,  &
35                      jp_fabm_r8c,   jp_fabm_r8p,  &
36                      jp_fabm_r8s,   jp_fabm_xeps, &
37                      jp_fabm_pgrow, jp_fabm_ploss
38
39#if defined key_fabm
40   !!---------------------------------------------------------------------
41   !!   'key_fabm'                     FABM tracers
42   !!---------------------------------------------------------------------
43   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag
44   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array
45#else
46   !!---------------------------------------------------------------------
47   !!   Default                           No user defined tracers (FABM)
48   !!---------------------------------------------------------------------
49   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .FALSE.  !: FABM flag
50#endif
51
52   !!======================================================================
53END MODULE par_fabm
Note: See TracBrowser for help on using the repository browser.