Skip to content
Snippets Groups Projects
Commit f317224a authored by Debolskiy Andrey's avatar Debolskiy Andrey :bicyclist_tone5:
Browse files

quickfix

parent aebe02aa
No related branches found
No related tags found
No related merge requests found
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<module type="CPP_MODULE" version="4"> <module classpath="CMake" type="CPP_MODULE" version="4" />
<component name="NewModuleRootManager"> \ No newline at end of file
<content url="file://$MODULE_DIR$" />
<orderEntry type="inheritedJdk" />
<orderEntry type="sourceFolder" forTests="false" />
</component>
</module>
\ No newline at end of file
...@@ -8,6 +8,7 @@ module config_utils ...@@ -8,6 +8,7 @@ module config_utils
implicit none implicit none
integer, public, save:: is_config_initialized = 0 integer, public, save:: is_config_initialized = 0
public init_config, get_fluid_params, get_grid_params public init_config, get_fluid_params, get_grid_params
public get_geo_forcing, get_heat_forcing
contains contains
...@@ -142,6 +143,8 @@ module config_utils ...@@ -142,6 +143,8 @@ module config_utils
end if end if
end subroutine get_grid_params end subroutine get_grid_params
!> @brief character array to string conversion !> @brief character array to string conversion
function char_array2str(char_array) result(str) function char_array2str(char_array) result(str)
! ---------------------------------------------------------------------------- ! ----------------------------------------------------------------------------
......
...@@ -23,7 +23,11 @@ module pbl_grid ...@@ -23,7 +23,11 @@ module pbl_grid
public :: allocate_pbl_grid, deallocate_pbl_grid public :: allocate_pbl_grid, deallocate_pbl_grid
public :: set_pbl_grid_via_edge !(grid,zpos,nk) public :: set_pbl_grid_via_edge !(grid,zpos,nk)
public :: set_pbl_grid_uniform public :: set_pbl_grid_uniform
!public :: set_from_file() public :: set_from_file
public :: set_inmcm_21
public :: get_sig_from_z
public :: get_z_from_sig
contains contains
subroutine allocate_pbl_grid(grid, nk) subroutine allocate_pbl_grid(grid, nk)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment