source: branches/UKMO/AMM15_v3_6_STABLE_package_FABM/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 10156

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

Apply patch fabm_patch_e3284ca_889163b.diff from Jim Clark.

File size: 1.0 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#if defined key_fabm
14   !!---------------------------------------------------------------------
15   !!   'key_fabm'                     FABM tracers
16   !!---------------------------------------------------------------------
17   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag
18   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array
19#else
20   !!---------------------------------------------------------------------
21   !!   Default                           No user defined tracers (FABM)
22   !!---------------------------------------------------------------------
23   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .FALSE.  !: FABM flag
24#endif
25
26   !!======================================================================
27END MODULE par_fabm
Note: See TracBrowser for help on using the repository browser.