SABER
type_bump Module Reference

Subroutines/functions list. More...

Data Types

type  bump_type
 

Functions/Subroutines

subroutine bump_create (bump, comm, afunctionspace, fieldset, conf, grid)
 Create. More...
 
subroutine bump_create_deprecated_atlas (bump, comm, afunctionspace, afieldset, conf, grid)
 Create (deprecated) More...
 
subroutine bump_setup (bump, f_comm, afunctionspace, fieldset, lunit, msvali, msvalr)
 Setup. More...
 
subroutine bump_run_drivers (bump)
 Run drivers. More...
 
subroutine bump_add_member (bump, fieldset, ie, iens)
 Add member into bumpens[1,2]. More...
 
subroutine bump_apply_vbal (bump, fieldset)
 Vertical balance application. More...
 
subroutine bump_apply_vbal_inv (bump, fieldset)
 Vertical balance application, inverse. More...
 
subroutine bump_apply_vbal_ad (bump, fieldset)
 Vertical balance application, adjoint. More...
 
subroutine bump_apply_vbal_inv_ad (bump, fieldset)
 Vertical balance application, inverse adjoint. More...
 
subroutine bump_apply_stddev (bump, fieldset)
 Standard-deviation application. More...
 
subroutine bump_apply_stddev_inv (bump, fieldset)
 Standard-deviation application, inverse. More...
 
subroutine bump_apply_nicas (bump, fieldset)
 NICAS application. More...
 
subroutine bump_apply_nicas_deprecated_atlas (bump, afieldset)
 NICAS application (deprecated. More...
 
subroutine bump_get_cv_size (bump, n)
 Get control variable size. More...
 
subroutine bump_apply_nicas_sqrt (bump, pcv, fieldset)
 NICAS square-root application. More...
 
subroutine bump_apply_nicas_sqrt_deprecated_atlas (bump, pcv, afieldset)
 NICAS square-root application (deprecated) More...
 
subroutine bump_apply_nicas_sqrt_ad (bump, fieldset, pcv)
 NICAS square-root adjoint application. More...
 
subroutine bump_randomize (bump, fieldset)
 NICAS randomization. More...
 
subroutine bump_get_parameter (bump, param, fieldset)
 Get a parameter. More...
 
subroutine bump_copy_to_field (bump, param, ib, fld_mga)
 Copy to field. More...
 
subroutine bump_test_get_parameter (bump)
 Test get_parameter. More...
 
subroutine bump_set_parameter (bump, param, fieldset)
 Set a parameter. More...
 
subroutine bump_set_parameter_deprecated_atlas (bump, param, afieldset)
 Set a parameter (deprecated) More...
 
subroutine bump_copy_from_field (bump, param, ib, fld_mga)
 Copy from field. More...
 
subroutine bump_test_set_parameter (bump)
 Test set_parameter. More...
 
subroutine bump_test_apply_interfaces (bump)
 Test BUMP apply interfaces. More...
 
subroutine bump_partial_dealloc (bump)
 Release memory (partial) More...
 
subroutine bump_dealloc (bump)
 Release memory (full) More...
 
subroutine bump_dummy_final (bump)
 Dummy finalization. More...
 

Variables

integer, parameter dmsvali = -999
 Default missing value for integers. More...
 
real(kind_real), parameter dmsvalr = -999.0_kind_real
 Default missing value for reals. More...
 
logical copy_ensemble = .false.
 Deep copy of ensemble members. More...
 

Detailed Description

Subroutines/functions list.

Instrumentation functions BUMP derived type

Function/Subroutine Documentation

◆ bump_add_member()

subroutine type_bump::bump_add_member ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(in)  fieldset,
integer, intent(in)  ie,
integer, intent(in)  iens 
)
private

Add member into bumpens[1,2].

Parameters
[in]ieMember index
[in]iensEnsemble number

Definition at line 580 of file type_bump.F90.

◆ bump_apply_nicas()

subroutine type_bump::bump_apply_nicas ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

NICAS application.

Definition at line 897 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_apply_nicas_deprecated_atlas()

subroutine type_bump::bump_apply_nicas_deprecated_atlas ( class(bump_type), intent(inout)  bump,
type(atlas_fieldset), intent(inout)  afieldset 
)
private

NICAS application (deprecated.

Parameters
[in,out]afieldsetATLAS fieldset

Definition at line 943 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_apply_nicas_sqrt()

subroutine type_bump::bump_apply_nicas_sqrt ( class(bump_type), intent(inout)  bump,
real(kind_real), dimension(:), intent(in)  pcv,
type(fieldset_type), intent(inout)  fieldset 
)
private

NICAS square-root application.

Parameters
[in]pcvPacked control variable

Definition at line 1013 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_apply_nicas_sqrt_ad()

subroutine type_bump::bump_apply_nicas_sqrt_ad ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset,
real(kind_real), dimension(:), intent(inout)  pcv 
)
private

NICAS square-root adjoint application.

Parameters
[in,out]pcvPacked control variable

Definition at line 1101 of file type_bump.F90.

◆ bump_apply_nicas_sqrt_deprecated_atlas()

subroutine type_bump::bump_apply_nicas_sqrt_deprecated_atlas ( class(bump_type), intent(inout)  bump,
real(kind_real), dimension(:), intent(in)  pcv,
type(atlas_fieldset), intent(inout)  afieldset 
)
private

NICAS square-root application (deprecated)

Parameters
[in]pcvPacked control variable
[in,out]afieldsetATLAS Fieldset

Definition at line 1065 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_apply_stddev()

subroutine type_bump::bump_apply_stddev ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

Standard-deviation application.

Definition at line 813 of file type_bump.F90.

◆ bump_apply_stddev_inv()

subroutine type_bump::bump_apply_stddev_inv ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

Standard-deviation application, inverse.

Definition at line 855 of file type_bump.F90.

◆ bump_apply_vbal()

subroutine type_bump::bump_apply_vbal ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

Vertical balance application.

Definition at line 645 of file type_bump.F90.

◆ bump_apply_vbal_ad()

subroutine type_bump::bump_apply_vbal_ad ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

Vertical balance application, adjoint.

Definition at line 729 of file type_bump.F90.

◆ bump_apply_vbal_inv()

subroutine type_bump::bump_apply_vbal_inv ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

Vertical balance application, inverse.

Definition at line 687 of file type_bump.F90.

◆ bump_apply_vbal_inv_ad()

subroutine type_bump::bump_apply_vbal_inv_ad ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

Vertical balance application, inverse adjoint.

Definition at line 771 of file type_bump.F90.

◆ bump_copy_from_field()

subroutine type_bump::bump_copy_from_field ( class(bump_type), intent(inout)  bump,
character(len=*), intent(in)  param,
integer, intent(in)  ib,
real(kind_real), dimension(bump%geom%nmga,bump%geom%nl0), intent(in)  fld_mga 
)
private

Copy from field.

Parameters
[in]paramParameter
[in]ibBlock index
[in]fld_mgaField

Definition at line 1683 of file type_bump.F90.

◆ bump_copy_to_field()

subroutine type_bump::bump_copy_to_field ( class(bump_type), intent(inout)  bump,
character(len=*), intent(in)  param,
integer, intent(in)  ib,
real(kind_real), dimension(bump%geom%nmga,bump%geom%nl0), intent(out)  fld_mga 
)
private

Copy to field.

Parameters
[in]paramParameter
[in]ibBlock index
[out]fld_mgaField

Definition at line 1267 of file type_bump.F90.

◆ bump_create()

subroutine type_bump::bump_create ( class(bump_type), intent(inout)  bump,
type(fckit_mpi_comm), intent(in)  comm,
type(atlas_functionspace), intent(in)  afunctionspace,
type(fieldset_type), intent(in)  fieldset,
type(fckit_configuration), intent(in)  conf,
type(fckit_configuration), intent(in)  grid 
)
private

Create.

Parameters
[in]commFCKIT MPI communicator wrapper
[in]afunctionspaceATLAS function space
[in]fieldsetFieldset containing geometry elements
[in]confFCKIT configuration
[in]gridFCKIT grid configuration

Definition at line 127 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_create_deprecated_atlas()

subroutine type_bump::bump_create_deprecated_atlas ( class(bump_type), intent(inout)  bump,
type(fckit_mpi_comm), intent(in)  comm,
type(atlas_functionspace), intent(in)  afunctionspace,
type(atlas_fieldset), intent(in)  afieldset,
type(fckit_configuration), intent(in)  conf,
type(fckit_configuration), intent(in)  grid 
)
private

Create (deprecated)

Parameters
[in]commFCKIT MPI communicator wrapper
[in]afunctionspaceATLAS function space
[in]afieldsetATLAS fieldset containing geometry elements
[in]confFCKIT configuration
[in]gridFCKIT grid configuration

Definition at line 183 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_dealloc()

subroutine type_bump::bump_dealloc ( class(bump_type), intent(inout)  bump)
private

Release memory (full)

Definition at line 2038 of file type_bump.F90.

◆ bump_dummy_final()

subroutine type_bump::bump_dummy_final ( type(bump_type), intent(inout)  bump)
private

Dummy finalization.

Definition at line 2079 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_get_cv_size()

subroutine type_bump::bump_get_cv_size ( class(bump_type), intent(inout)  bump,
integer, intent(out)  n 
)
private

Get control variable size.

Parameters
[out]nControl variable size

Definition at line 978 of file type_bump.F90.

◆ bump_get_parameter()

subroutine type_bump::bump_get_parameter ( class(bump_type), intent(inout)  bump,
character(len=*), intent(in)  param,
type(fieldset_type), intent(inout)  fieldset 
)
private

Get a parameter.

Parameters
[in]paramParameter

Definition at line 1193 of file type_bump.F90.

◆ bump_partial_dealloc()

subroutine type_bump::bump_partial_dealloc ( class(bump_type), intent(inout)  bump)
private

Release memory (partial)

Definition at line 2001 of file type_bump.F90.

◆ bump_randomize()

subroutine type_bump::bump_randomize ( class(bump_type), intent(inout)  bump,
type(fieldset_type), intent(inout)  fieldset 
)
private

NICAS randomization.

Definition at line 1150 of file type_bump.F90.

◆ bump_run_drivers()

subroutine type_bump::bump_run_drivers ( class(bump_type), intent(inout)  bump)
private

Run drivers.

Definition at line 367 of file type_bump.F90.

◆ bump_set_parameter()

subroutine type_bump::bump_set_parameter ( class(bump_type), intent(inout)  bump,
character(len=*), intent(in)  param,
type(fieldset_type), intent(inout)  fieldset 
)
private

Set a parameter.

Parameters
[in]paramParameter

Definition at line 1574 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_set_parameter_deprecated_atlas()

subroutine type_bump::bump_set_parameter_deprecated_atlas ( class(bump_type), intent(inout)  bump,
character(len=*), intent(in)  param,
type(atlas_fieldset), intent(inout)  afieldset 
)
private

Set a parameter (deprecated)

Parameters
[in]paramParameter
[in,out]afieldsetATLAS fieldset

Definition at line 1647 of file type_bump.F90.

Here is the caller graph for this function:

◆ bump_setup()

subroutine type_bump::bump_setup ( class(bump_type), intent(inout)  bump,
type(fckit_mpi_comm), intent(in)  f_comm,
type(atlas_functionspace), intent(in)  afunctionspace,
type(fieldset_type), intent(in), optional  fieldset,
integer, intent(in), optional  lunit,
integer, intent(in), optional  msvali,
real(kind_real), intent(in), optional  msvalr 
)
private

Setup.

Parameters
[in]f_commFCKIT MPI communicator wrapper
[in]afunctionspaceATLAS functionspace
[in]fieldsetFieldset containing geometry elements
[in]lunitListing unit
[in]msvaliMissing value for integers
[in]msvalrMissing value for reals

Definition at line 222 of file type_bump.F90.

◆ bump_test_apply_interfaces()

subroutine type_bump::bump_test_apply_interfaces ( class(bump_type), intent(inout)  bump)
private

Test BUMP apply interfaces.

Definition at line 1881 of file type_bump.F90.

◆ bump_test_get_parameter()

subroutine type_bump::bump_test_get_parameter ( class(bump_type), intent(inout)  bump)
private

Test get_parameter.

Definition at line 1506 of file type_bump.F90.

◆ bump_test_set_parameter()

subroutine type_bump::bump_test_set_parameter ( class(bump_type), intent(inout)  bump)
private

Test set_parameter.

Definition at line 1791 of file type_bump.F90.

Variable Documentation

◆ copy_ensemble

logical type_bump::copy_ensemble = .false.

Deep copy of ensemble members.

Definition at line 60 of file type_bump.F90.

◆ dmsvali

integer, parameter type_bump::dmsvali = -999

Default missing value for integers.

Definition at line 58 of file type_bump.F90.

◆ dmsvalr

real(kind_real), parameter type_bump::dmsvalr = -999.0_kind_real

Default missing value for reals.

Definition at line 59 of file type_bump.F90.