MODULE par_fabm

   USE fabm

   IMPLICIT NONE

   TYPE (type_model) :: model !FABM model instance

   INTEGER, PUBLIC :: jp_fabm0, jp_fabm1, jp_fabm, &
                      jp_fabm_surface, jp_fabm_bottom, &
                      jp_fabm_m1

   INTEGER, PUBLIC :: jp_fabm_chl1, jp_fabm_chl2, &
                      jp_fabm_chl3, jp_fabm_chl4, &
                      jp_fabm_p1c,  jp_fabm_p1n,  &
                      jp_fabm_p1p,  jp_fabm_p1s,  &
                      jp_fabm_p2c,  jp_fabm_p2n,  &
                      jp_fabm_p2p,  jp_fabm_p3c,  &
                      jp_fabm_p3n,  jp_fabm_p3p,  &
                      jp_fabm_p4c,  jp_fabm_p4n,  &
                      jp_fabm_p4p,  jp_fabm_z4c,  &
                      jp_fabm_z5c,  jp_fabm_z5n,  &
                      jp_fabm_z5p,  jp_fabm_z6c,  &
                      jp_fabm_z6n,  jp_fabm_z6p,  &
                      jp_fabm_n1p,  jp_fabm_n3n,  &
                      jp_fabm_n4n,  jp_fabm_n5s,  &
                      jp_fabm_o2o,  jp_fabm_netp1, &
                      jp_fabm_netp2,jp_fabm_netp3, &
                      jp_fabm_netp4,jp_fabm_o3ph,  &
                      jp_fabm_o3pc, jp_fabm_xeps,  &
                      jp_fabm_o3c,  jp_fabm_o3a,  &
                      jp_fabm_r4n,  jp_fabm_r6n,  &
                      jp_fabm_r8n

   INTEGER, PUBLIC :: jp_fabmdia_3dout = 12

   INTEGER, PUBLIC :: jp_fabmdia_chltot, jp_fabmdia_netpp, jp_fabmdia_phytot
   INTEGER, PUBLIC :: jp_fabmdia_pgrow,  jp_fabmdia_ploss

#if defined key_fabm
   !!---------------------------------------------------------------------
   !!   'key_fabm'                     FABM tracers
   !!---------------------------------------------------------------------
   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag 
   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array 
#else
   !!---------------------------------------------------------------------
   !!   Default                           No user defined tracers (FABM)
   !!---------------------------------------------------------------------
   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .FALSE.  !: FABM flag 
#endif

   !!======================================================================
END MODULE par_fabm