source: branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 11979

Last change on this file since 11979 was 11545, checked in by dford, 14 months ago

Specify an index for the xEPS diagnostic from FABM, for use by the observation operator. See https://code.metoffice.gov.uk/trac/utils/ticket/247.

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.