New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
par_fabm.F90 in branches/UKMO/r6232_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM – NEMO

source: branches/UKMO/r6232_collate_bgc_diagnostics/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 11137

Last change on this file since 11137 was 11137, checked in by jcastill, 5 years ago

Add missing files

File size: 1.9 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_o3a,  jp_fabm_o3ph, &
30                      jp_fabm_o3pc, jp_fabm_xeps
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   !!======================================================================
46END MODULE par_fabm
Note: See TracBrowser for help on using the repository browser.