source: branches/UKMO/CO6_KD490_amm7_oper_fabm_hem08/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 9336

Last change on this file since 9336 was 9336, checked in by dford, 2 years ago

Add growth and loss diagnostics.

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
12
13   INTEGER, PUBLIC :: jp_fabm_chl1, jp_fabm_chl2, &
14                      jp_fabm_chl3, jp_fabm_chl4, &
15                      jp_fabm_p1c,  jp_fabm_p1n,  &
16                      jp_fabm_p1p,  jp_fabm_p1s,  &
17                      jp_fabm_p2c,  jp_fabm_p2n,  &
18                      jp_fabm_p2p,  jp_fabm_p3c,  &
19                      jp_fabm_p3n,  jp_fabm_p3p,  &
20                      jp_fabm_p4c,  jp_fabm_p4n,  &
21                      jp_fabm_p4p,  jp_fabm_z4c,  &
22                      jp_fabm_z5c,  jp_fabm_z5n,  &
23                      jp_fabm_z5p,  jp_fabm_z6c,  &
24                      jp_fabm_z6n,  jp_fabm_z6p,  &
25                      jp_fabm_n1p,  jp_fabm_n3n,  &
26                      jp_fabm_n4n,  jp_fabm_n5s,  &
27                      jp_fabm_o2o,  jp_fabm_netp1, &
28                      jp_fabm_netp2,jp_fabm_netp3, &
29                      jp_fabm_netp4,jp_fabm_o3ph,  &
30                      jp_fabm_o3pc, jp_fabm_xeps,  &
31                      jp_fabm_o3c,  jp_fabm_o3a,  &
32                      jp_fabm_r4n,  jp_fabm_r6n,  &
33                      jp_fabm_r8n
34
35   INTEGER, PUBLIC :: jp_fabmdia_3dout = 12
36
37   INTEGER, PUBLIC :: jp_fabmdia_chltot, jp_fabmdia_netpp, jp_fabmdia_phytot
38   INTEGER, PUBLIC :: jp_fabmdia_pgrow,  jp_fabmdia_ploss
39
40#if defined key_fabm
41   !!---------------------------------------------------------------------
42   !!   'key_fabm'                     FABM tracers
43   !!---------------------------------------------------------------------
44   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag
45   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array
46#else
47   !!---------------------------------------------------------------------
48   !!   Default                           No user defined tracers (FABM)
49   !!---------------------------------------------------------------------
50   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .FALSE.  !: FABM flag
51#endif
52
53   !!======================================================================
54END MODULE par_fabm
Note: See TracBrowser for help on using the repository browser.