source: branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 8049

Last change on this file since 8049 was 8049, checked in by dford, 3 years ago

Add FABM-related code changes.

File size: 2.1 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
32   INTEGER, PUBLIC :: jp_fabmdia_3dout = 12
33
34   INTEGER, PUBLIC :: jp_fabmdia_chltot, jp_fabmdia_netpp, jp_fabmdia_phytot
35
36#if defined key_fabm
37   !!---------------------------------------------------------------------
38   !!   'key_fabm'                     FABM tracers
39   !!---------------------------------------------------------------------
40   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag
41   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array
42#else
43   !!---------------------------------------------------------------------
44   !!   Default                           No user defined tracers (FABM)
45   !!---------------------------------------------------------------------
46   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .FALSE.  !: FABM flag
47#endif
48
49   !!======================================================================
50END MODULE par_fabm
Note: See TracBrowser for help on using the repository browser.