From f317224a451aee0f374cfbf3fb6d27f24ea432a2 Mon Sep 17 00:00:00 2001
From: Andrey Debolskiy <and.debol@gmail.com>
Date: Sat, 7 Dec 2024 13:54:20 +0300
Subject: [PATCH] quickfix
---
.idea/scm-abl.iml | 8 +-------
src/config-utils.f90 | 3 +++
src/pbl_grid.f90 | 6 +++++-
3 files changed, 9 insertions(+), 8 deletions(-)
diff --git a/.idea/scm-abl.iml b/.idea/scm-abl.iml
index bc2cd87..f08604b 100644
--- a/.idea/scm-abl.iml
+++ b/.idea/scm-abl.iml
@@ -1,8 +1,2 @@
<?xml version="1.0" encoding="UTF-8"?>
-<module type="CPP_MODULE" version="4">
- <component name="NewModuleRootManager">
- <content url="file://$MODULE_DIR$" />
- <orderEntry type="inheritedJdk" />
- <orderEntry type="sourceFolder" forTests="false" />
- </component>
-</module>
\ No newline at end of file
+<module classpath="CMake" type="CPP_MODULE" version="4" />
\ No newline at end of file
diff --git a/src/config-utils.f90 b/src/config-utils.f90
index b931373..a917496 100644
--- a/src/config-utils.f90
+++ b/src/config-utils.f90
@@ -8,6 +8,7 @@ module config_utils
implicit none
integer, public, save:: is_config_initialized = 0
public init_config, get_fluid_params, get_grid_params
+ public get_geo_forcing, get_heat_forcing
contains
@@ -142,6 +143,8 @@ module config_utils
end if
end subroutine get_grid_params
+
+
!> @brief character array to string conversion
function char_array2str(char_array) result(str)
! ----------------------------------------------------------------------------
diff --git a/src/pbl_grid.f90 b/src/pbl_grid.f90
index 3624fed..da0333f 100644
--- a/src/pbl_grid.f90
+++ b/src/pbl_grid.f90
@@ -23,7 +23,11 @@ module pbl_grid
public :: allocate_pbl_grid, deallocate_pbl_grid
public :: set_pbl_grid_via_edge !(grid,zpos,nk)
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
subroutine allocate_pbl_grid(grid, nk)
--
GitLab