Skip to content

Update marbl_interface_private_types_docvents_removal.F90 #12

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
jlinmod wants to merge 1 commit into
base: jlinmod-patch-6
Choose a base branch
from
Open

Update marbl_interface_private_types_docvents_removal.F90 #12

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions unchanged/marbl_interface_private_types.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -268,6 +268,7 @@ module marbl_interface_private_types
real(r8), allocatable :: DOC_prod(:) ! production of DOC (mmol C/m^3/sec)
real(r8), allocatable :: DOC_remin(:) ! remineralization of DOC (mmol C/m^3/sec)
real(r8), allocatable :: DOCr_remin(:) ! remineralization of DOCr
real(r8), allocatable :: DOCr_sed_remin(:) ! remineralization of DOCr vents
real(r8), allocatable :: DON_prod(:) ! production of DON
real(r8), allocatable :: DON_remin(:) ! remineralization of DON
real(r8), allocatable :: DONr_remin(:) ! remineralization of DONr
Expand Down Expand Up @@ -601,6 +602,7 @@ module marbl_interface_private_types
integer(int_kind) :: DOC_prod
integer(int_kind) :: DOC_remin
integer(int_kind) :: DOCr_remin
integer(int_kind) :: DOCr_sed_remin
integer(int_kind) :: DON_prod
integer(int_kind) :: DON_remin
integer(int_kind) :: DONr_remin
Expand Down Expand Up @@ -904,6 +906,7 @@ subroutine dissolved_organic_matter_constructor(this, num_levels)
allocate(this%DOC_prod(num_levels))
allocate(this%DOC_remin(num_levels))
allocate(this%DOCr_remin(num_levels))
allocate(this%DOCr_sed_remin(num_levels))
allocate(this%DON_prod(num_levels))
allocate(this%DON_remin(num_levels))
allocate(this%DONr_remin(num_levels))
Expand All @@ -923,6 +926,7 @@ subroutine dissolved_organic_matter_destructor(this)
deallocate(this%DOC_prod)
deallocate(this%DOC_remin)
deallocate(this%DOCr_remin)
deallocate(this%DOCr_sed_remin)
deallocate(this%DON_prod)
deallocate(this%DON_remin)
deallocate(this%DONr_remin)
Expand Down