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, jp_fabm_2d, jp_fabm_3d ! Variables needed for OBS/ASM 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_o3c, & jp_fabm_o3ta, jp_fabm_o3ba, & jp_fabm_o3pc, jp_fabm_o3ph, & jp_fabm_r4n, jp_fabm_r4c, & jp_fabm_r4p, jp_fabm_r6n, & jp_fabm_r6c, jp_fabm_r6p, & jp_fabm_r6s, jp_fabm_r8n, & jp_fabm_r8c, jp_fabm_r8p, & jp_fabm_r8s, jp_fabm_xeps, & jp_fabm_pgrow, jp_fabm_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