From 751135083ccb816de174aaa4e0598d0876e599b0 Mon Sep 17 00:00:00 2001
From: Evgeny Mortikov <evgeny.mortikov@gmail.com>
Date: Wed, 18 Dec 2024 18:59:21 +0300
Subject: [PATCH] fixing initial conditions setup
---
obl_init.f90 | 4 ++++
obl_main.f90 | 5 +++++
2 files changed, 9 insertions(+)
diff --git a/obl_init.f90 b/obl_init.f90
index 4dc16d9..8dbc9e0 100644
--- a/obl_init.f90
+++ b/obl_init.f90
@@ -1,3 +1,5 @@
+#include "obl_def.fi"
+
module obl_init
!< @brief initial conditions module
! --------------------------------------------------------------------------------
@@ -120,6 +122,8 @@ module obl_init
subroutine set_config_profile(F, tag, grid, ierr)
!< @brief set constant profile
! ----------------------------------------------------------------------------
+ use obl_common, only : char_array2str
+
type (gridDataType), intent(in) :: grid
real, dimension(grid%cz), intent(out) :: F
diff --git a/obl_main.f90 b/obl_main.f90
index 2ea67f9..8c11027 100644
--- a/obl_main.f90
+++ b/obl_main.f90
@@ -184,6 +184,7 @@ program obl_main
! ----------------------------------------------------------------------------
call set_grid(grid, obl_setup, ierr)
if (ierr /= 0) then
+ write(*, *) ' FAILURE! > unable to set grid '
return
endif
@@ -195,6 +196,7 @@ program obl_main
! ----------------------------------------------------------------------------
call set_time(time_begin, time_end, dt, obl_setup, ierr)
if (ierr /= 0) then
+ write(*, *) ' FAILURE! > unable to set time '
return
endif
time_current = time_begin
@@ -215,6 +217,7 @@ program obl_main
! ----------------------------------------------------------------------------
call set_phys(obl_setup, ierr)
if (ierr /= 0) then
+ write(*, *) ' FAILURE! > unable to set phys parameters '
return
endif
! ----------------------------------------------------------------------------
@@ -223,6 +226,7 @@ program obl_main
! ----------------------------------------------------------------------------
call set_forcing(obl_setup, ierr)
if (ierr /= 0) then
+ write(*, *) ' FAILURE! > unable to set forcing '
return
endif
! ----------------------------------------------------------------------------
@@ -231,6 +235,7 @@ program obl_main
! ----------------------------------------------------------------------------
call set_initial_conditions(grid, obl_setup, ierr)
if (ierr /= 0) then
+ write(*, *) ' FAILURE! > unable to set initial conditions '
return
endif
--
GitLab