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/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM – NEMO

source: branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90 @ 13505

Last change on this file since 13505 was 13505, checked in by dford, 4 years ago

Get kd490 from spectral optical model.

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_swr,   jp_fabm_kd490, &
42                      jp_fabm_pgrow, jp_fabm_ploss
43
44   LOGICAL, PUBLIC, ALLOCATABLE, DIMENSION(:) ::   lk_rad_fabm !: FABM negativity correction flag array
45
46#if defined key_fabm
47   CLASS (type_fabm_model), POINTER :: model !FABM model instance
48
49   !!---------------------------------------------------------------------
50   !!   'key_fabm'                     FABM tracers
51   !!---------------------------------------------------------------------
52   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .TRUE.   !: FABM flag
53#else
54   !!---------------------------------------------------------------------
55   !!   Default                           No user defined tracers (FABM)
56   !!---------------------------------------------------------------------
57   LOGICAL, PUBLIC, PARAMETER ::   lk_fabm     = .FALSE.  !: FABM flag
58#endif
59
60   !!======================================================================
61END MODULE par_fabm
Note: See TracBrowser for help on using the repository browser.