38 integer,
allocatable :: idbio(:)
46 integer,
allocatable ::
bioiter(:)
51 real(r8),
allocatable ::
detrr(:)
52 real(r8),
allocatable ::
k_ext(:)
53 real(r8),
allocatable ::
k_no3(:)
54 real(r8),
allocatable ::
k_phy(:)
55 real(r8),
allocatable ::
phymr(:)
57 real(r8),
allocatable ::
wdet(:)
64 real(r8),
allocatable ::
zoogr(:)
65 real(r8),
allocatable ::
zoomr(:)
66 real(r8),
allocatable ::
zoomd(:)
67 real(r8),
allocatable ::
zooga(:)
68 real(r8),
allocatable ::
zooec(:)
95 IF (.not.
allocated(
bioiter))
THEN
100 IF (.not.
allocated(
detrr))
THEN
105 IF (.not.
allocated(
k_ext))
THEN
110 IF (.not.
allocated(
k_no3))
THEN
115 IF (.not.
allocated(
k_phy))
THEN
120 IF (.not.
allocated(
phymr))
THEN
125 IF (.not.
allocated(
vm_no3))
THEN
130 IF (.not.
allocated(
wdet))
THEN
136 IF (.not.
allocated(
tl_wdet))
THEN
143 IF (.not.
allocated(
ad_wdet))
THEN
149 IF (.not.
allocated(
zoogr))
THEN
154 IF (.not.
allocated(
zoomr))
THEN
159 IF (.not.
allocated(
zoomd))
THEN
164 IF (.not.
allocated(
zooga))
THEN
169 IF (.not.
allocated(
zooec))
THEN
176 IF (.not.
allocated(idbio))
THEN
177 allocate ( idbio(
nbt) )
real(r8), dimension(:), allocatable zooga
real(r8), dimension(:), allocatable tl_wdet
real(r8), dimension(:), allocatable zoomr
real(r8), dimension(:), allocatable k_phy
real(r8), dimension(:), allocatable detrr
real(r8), dimension(:), allocatable wdet
real(r8), dimension(:), allocatable zoomd
integer, dimension(:), allocatable bioiter
real(r8), dimension(:,:), allocatable bioini
real(r8), dimension(:), allocatable zoogr
real(r8), dimension(:), allocatable k_no3
real(r8), dimension(:), allocatable phymr
real(r8), dimension(:), allocatable zooec
real(r8), dimension(:), allocatable ad_wdet
real(r8), dimension(:), allocatable vm_no3
subroutine initialize_biology
real(r8), dimension(:), allocatable k_ext
real(r8), dimension(:), allocatable dmem