Skip to content
Snippets Groups Projects
Commit a3aaac62 authored by Evgeny Mortikov's avatar Evgeny Mortikov
Browse files

common phys parameters module update

parent 3c33610a
No related branches found
No related tags found
No related merge requests found
......@@ -22,7 +22,7 @@ set(SOURCES
obl_tforcing.f90
obl_state.f90
obl_output.f90
obl_common_phys_parameters.f90
obl_common_phys.f90
obl_math.f90
obl_state_eq.f90
obl_initial_conditions.f90
......
......@@ -2,7 +2,7 @@ module obl_boundary
!< @brief boundary conditions module
! modules used
use obl_common_phys_parameters
use obl_common_phys
use obl_state_eq
use obl_math
......
module obl_common_phys
!< @brief common physical parameters and constants
implicit none
private
! --------------------------------------------------------------------------------
real, public, parameter :: g = 9.80655 !< gravity acceleration [m / s^2]
real, public, parameter :: cp_air = 1003.5 !< specific heat of air [J / (kg * K]
real, public, parameter :: cp_water = 4189.9 !< specific heat of water [J / (kg * K]
! --------------------------------------------------------------------------------
end module
module obl_common_phys_parameters
!< @brief common physical parameters and constants
implicit none
real, parameter :: g = 9.80655 !< gravity acceleration [m / s^2]
real, parameter :: cp_air = 1003.5 !< specific heat of air [J / (kg * K]
real, parameter :: cp_water = 4189.9 !< specific heat of water [J / (kg * K]
end module
\ No newline at end of file
......@@ -5,7 +5,7 @@ module obl_diag
! modules used
use obl_grid
use obl_math
use obl_common_phys_parameters
use obl_common_phys
use obl_state_eq
use obl_turb_closure
......
......@@ -2,7 +2,6 @@ module obl_forcing_and_boundary
!< @brief boundary conditions module
! modules used
use obl_common_phys_parameters
use obl_state_eq
use obl_math
......@@ -13,6 +12,7 @@ module obl_forcing_and_boundary
subroutine set_Flux_heat_bot (Flux_heat_bot, Time_flux_heat_bot, nf, df)
!< @brief set bottom heat flux
use obl_common_phys
integer, intent(in) :: nf !< number of timesteps
real, intent(in) :: df
......@@ -49,6 +49,8 @@ module obl_forcing_and_boundary
subroutine set_Flux_heat_surf (Flux_heat_surf, Time_flux_heat_surf, nf, df)
!< @brief set surface heat flux
use obl_common_phys
integer, intent(in) :: nf !< number of timesteps
real, intent(in) :: df
real, intent(out) :: Flux_heat_surf(nf) !< surface heat flux, output: [K*m/s]
......
......@@ -11,7 +11,7 @@ program obl_main
! modules used
use obl_grid
use obl_state
use obl_common_phys
use obl_tforcing
use obl_tslice
use obl_tseries
......
......@@ -177,6 +177,8 @@ module obl_scm
subroutine set_temperature_eq_rhs(Theta_rhs, sw_fluxH, depth, dz, cz)
!< @brief set RHS for Theta equation
! --------------------------------------------------------------------------------
use obl_common_phys
integer, intent(in) :: cz !< grid size
real, dimension(cz + 1) :: depth
......
......@@ -6,7 +6,7 @@ module obl_turb_closure
! --------------------------------------------------------------------------------
use obl_grid
use obl_math
use obl_common_phys_parameters
use obl_common_phys
use obl_state_eq
! directives list
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment