Skip to content

Commit

Permalink
Update dummy MARBL interface
Browse files Browse the repository at this point in the history
Add a few components we use with running means
  • Loading branch information
mnlevy1981 committed Nov 4, 2024
1 parent cb026ac commit e824041
Show file tree
Hide file tree
Showing 2 changed files with 15 additions and 0 deletions.
9 changes: 9 additions & 0 deletions config_src/external/MARBL/marbl_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,7 @@ module marbl_interface
use marbl_interface_public_types, only : marbl_diagnostics_type
use marbl_interface_public_types, only : marbl_domain_type
use marbl_interface_public_types, only : marbl_output_for_GCM_type
use marbl_interface_public_types, only : marbl_running_mean_0d_type
implicit none
private ! Only want marbl_interface_class to be public, not supporting functions

Expand All @@ -33,6 +34,14 @@ module marbl_interface
real, allocatable :: bot_flux_to_tend(:) !< dummy array for bot flux to tendency wgts
real, allocatable :: surface_fluxes(:,:) !< dummy fluxes
real, allocatable :: interior_tendencies(:,:) !< dummy tendencies
real, allocatable :: glo_avg_fields_interior_tendency(:) !< dummy tracer array
real, allocatable :: glo_avg_fields_surface_flux(:,:) !< dummy tracer array
real, allocatable :: glo_avg_averages_interior_tendency(:) !< dummy tracer array
real, allocatable :: glo_avg_averages_surface_flux(:) !< dummy tracer array
type(marbl_running_mean_0d_type), allocatable :: glo_avg_rmean_interior_tendency(:) !< dummy rmean array
type(marbl_running_mean_0d_type), allocatable :: glo_avg_rmean_surface_flux(:) !< dummy rmean array
type(marbl_running_mean_0d_type), allocatable :: glo_scalar_rmean_interior_tendency(:) !< dummy rmean array
type(marbl_running_mean_0d_type), allocatable :: glo_scalar_rmean_surface_flux(:) !< dummy rmean array
contains
procedure, public :: put_setting !< dummy put_setting routine
procedure, public :: get_setting !< dummy get_setting routine
Expand Down
6 changes: 6 additions & 0 deletions config_src/external/MARBL/marbl_interface_public_types.F90
Original file line number Diff line number Diff line change
Expand Up @@ -87,4 +87,10 @@ module marbl_interface_public_types
type(marbl_single_output_type), dimension(:), pointer :: outputs_for_GCM => NULL() !< dummy outputs_for_GCM
end type marbl_output_for_GCM_type

!> A non-functioning template of MARBL running mean type
type, public :: marbl_running_mean_0d_type
character(len=0) :: sname !< dummy shortname label
real :: rmean !< dummy running mean values
end type marbl_running_mean_0d_type

end module marbl_interface_public_types

0 comments on commit e824041

Please sign in to comment.