source: branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 13241

Last change on this file since 13241 was 13241, checked in by dford, 3 months ago

Update NEMO-FABM coupler for compatability with FABM v1.0.

File size: 2.5 KB
Line 
1MODULE par_fabm
2
3#if defined key_fabm
4#  include "fabm_version.h"
5#  if _FABM_API_VERSION_ < 1
6#    error You need FABM 1.0 or later
7#  endif
8   USE fabm
9#endif
10
11   IMPLICIT NONE
12
13   INTEGER, PUBLIC :: jp_fabm0, jp_fabm1, jp_fabm, &
14                      jp_fabm_surface, jp_fabm_bottom, &
15                      jp_fabm_m1, jp_fabm_2d, jp_fabm_3d
16
17   ! Variables needed for OBS/ASM
18   INTEGER, PUBLIC :: jp_fabm_chl1,  jp_fabm_chl2, &
19                      jp_fabm_chl3,  jp_fabm_chl4, &
20                      jp_fabm_p1c,   jp_fabm_p1n,  &
21                      jp_fabm_p1p,   jp_fabm_p1s,  &
22                      jp_fabm_p2c,   jp_fabm_p2n,  &
23                      jp_fabm_p2p,   jp_fabm_p3c,  &
24                      jp_fabm_p3n,   jp_fabm_p3p,  &
25                      jp_fabm_p4c,   jp_fabm_p4n,  &
26                      jp_fabm_p4p,   jp_fabm_z4c,  &
27                      jp_fabm_z5c,   jp_fabm_z5n,  &
28                      jp_fabm_z5p,   jp_fabm_z6c,  &
29                      jp_fabm_z6n,   jp_fabm_z6p,  &
30                      jp_fabm_n1p,   jp_fabm_n3n,  &
31                      jp_fabm_n4n,   jp_fabm_n5s,  &
32                      jp_fabm_o2o,   jp_fabm_o3c,  &
33                      jp_fabm_o3ta,  jp_fabm_o3ba, &
34                      jp_fabm_o3pc,  jp_fabm_o3ph, &
35                      jp_fabm_r4n,   jp_fabm_r4c,  &
36                      jp_fabm_r4p,   jp_fabm_r6n,  &
37                      jp_fabm_r6c,   jp_fabm_r6p,  &
38                      jp_fabm_r6s,   jp_fabm_r8n,  &
39                      jp_fabm_r8c,   jp_fabm_r8p,  &
40                      jp_fabm_r8s,   jp_fabm_xeps, &
41                      jp_fabm_pgrow, jp_fabm_ploss
42
43   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array
44
45#if defined key_fabm
46   CLASS (type_fabm_model), POINTER :: model !FABM model instance
47
48   !!---------------------------------------------------------------------
49   !!   'key_fabm'                     FABM tracers
50   !!---------------------------------------------------------------------
51   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag
52#else
53   !!---------------------------------------------------------------------
54   !!   Default                           No user defined tracers (FABM)
55   !!---------------------------------------------------------------------
56   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .FALSE.  !: FABM flag
57#endif
58
59   !!======================================================================
60END MODULE par_fabm
Note: See TracBrowser for help on using the repository browser.