Utility module containing the stochastic related routines.
More...
|
real(kind=8) function, public | gasdev () |
|
subroutine, public | stoch_vec (dW) |
| Routine to fill a vector with standard Gaussian noise process values. More...
|
|
subroutine, public | stoch_atm_vec (dW) |
| routine to fill the atmospheric component of a vector with standard gaussian noise process values More...
|
|
subroutine, public | stoch_atm_res_vec (dW) |
| routine to fill the resolved atmospheric component of a vector with standard gaussian noise process values More...
|
|
subroutine, public | stoch_atm_unres_vec (dW) |
| routine to fill the unresolved atmospheric component of a vector with standard gaussian noise process values More...
|
|
subroutine, public | stoch_oc_vec (dW) |
| routine to fill the oceanic component of a vector with standard gaussian noise process values More...
|
|
subroutine, public | stoch_oc_res_vec (dW) |
| routine to fill the resolved oceanic component of a vector with standard gaussian noise process values More...
|
|
subroutine, public | stoch_oc_unres_vec (dW) |
| routine to fill the unresolved oceanic component of a vector with standard gaussian noise process values More...
|
|
Utility module containing the stochastic related routines.
- Copyright
- 2018 Jonathan Demaeyer. See LICENSE.txt for license information.
real(kind=8) function, public stoch_mod::gasdev |
( |
| ) |
|
Definition at line 32 of file stoch_mod.f90.
32 REAL(KIND=8) :: gasdev
33 REAL(KIND=8) :: fac,rsq,v1,v2,r
41 IF (rsq.lt.1.d0.and.rsq.ne.0.d0)
EXIT 43 fac=sqrt(-2.*log(rsq)/rsq)
subroutine, public stoch_mod::stoch_atm_res_vec |
( |
real(kind=8), dimension(0:ndim), intent(inout) |
dW | ) |
|
routine to fill the resolved atmospheric component of a vector with standard gaussian noise process values
- Parameters
-
Definition at line 77 of file stoch_mod.f90.
77 real(kind=8),
dimension(0:ndim),
intent(inout) :: dw
81 IF (
sf(i)==0) dw(i)=gasdev()
integer, dimension(:), allocatable, public sf
Unresolved variable definition vector.
subroutine, public stoch_mod::stoch_atm_unres_vec |
( |
real(kind=8), dimension(0:ndim), intent(inout) |
dW | ) |
|
routine to fill the unresolved atmospheric component of a vector with standard gaussian noise process values
- Parameters
-
Definition at line 88 of file stoch_mod.f90.
88 real(kind=8),
dimension(0:ndim),
intent(inout) :: dw
92 IF (
sf(i)==1) dw(i)=gasdev()
integer, dimension(:), allocatable, public sf
Unresolved variable definition vector.
subroutine, public stoch_mod::stoch_atm_vec |
( |
real(kind=8), dimension(0:ndim), intent(inout) |
dW | ) |
|
routine to fill the atmospheric component of a vector with standard gaussian noise process values
- Parameters
-
Definition at line 67 of file stoch_mod.f90.
67 real(kind=8),
dimension(0:ndim),
intent(inout) :: dw
subroutine, public stoch_mod::stoch_oc_res_vec |
( |
real(kind=8), dimension(0:ndim), intent(inout) |
dW | ) |
|
routine to fill the resolved oceanic component of a vector with standard gaussian noise process values
- Parameters
-
Definition at line 109 of file stoch_mod.f90.
109 real(kind=8),
dimension(0:ndim),
intent(inout) :: dw
113 IF (
sf(i)==0) dw(i)=gasdev()
integer ndim
Number of variables (dimension of the model)
integer, dimension(:), allocatable, public sf
Unresolved variable definition vector.
subroutine, public stoch_mod::stoch_oc_unres_vec |
( |
real(kind=8), dimension(0:ndim), intent(inout) |
dW | ) |
|
routine to fill the unresolved oceanic component of a vector with standard gaussian noise process values
- Parameters
-
Definition at line 120 of file stoch_mod.f90.
120 real(kind=8),
dimension(0:ndim),
intent(inout) :: dw
124 IF (
sf(i)==1) dw(i)=gasdev()
integer ndim
Number of variables (dimension of the model)
integer, dimension(:), allocatable, public sf
Unresolved variable definition vector.
subroutine, public stoch_mod::stoch_oc_vec |
( |
real(kind=8), dimension(0:ndim), intent(inout) |
dW | ) |
|
routine to fill the oceanic component of a vector with standard gaussian noise process values
- Parameters
-
Definition at line 99 of file stoch_mod.f90.
99 real(kind=8),
dimension(0:ndim),
intent(inout) :: dw
integer ndim
Number of variables (dimension of the model)
subroutine, public stoch_mod::stoch_vec |
( |
real(kind=8), dimension(0:ndim), intent(inout) |
dW | ) |
|
Routine to fill a vector with standard Gaussian noise process values.
- Parameters
-
Definition at line 57 of file stoch_mod.f90.
57 REAL(KIND=8),
DIMENSION(0:ndim),
INTENT(INOUT) :: dw
integer ndim
Number of variables (dimension of the model)
real(kind=8) stoch_mod::gset |
|
private |
integer stoch_mod::iset =0 |
|
private |