From 449adbf5bf2492b7cf3a06b713d9378fdfdfa3f1 Mon Sep 17 00:00:00 2001
From: Lizzzka007 <gashchuk2011@mail.ru>
Date: Tue, 15 Oct 2024 18:58:45 +0300
Subject: [PATCH] CXX sheba launch hotfix
---
srcF/sfx_sheba.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/srcF/sfx_sheba.f90 b/srcF/sfx_sheba.f90
index 1940e96..c53a396 100644
--- a/srcF/sfx_sheba.f90
+++ b/srcF/sfx_sheba.f90
@@ -108,8 +108,8 @@ contains
integer i
! ----------------------------------------------------------------------------
#if defined(INCLUDE_CXX)
- type (meteoDataVecTypeC), pointer :: meteo_c !< meteorological data (input)
- type (sfxDataVecTypeC), pointer :: sfx_c !< surface flux data (output)
+ type (meteoDataVecTypeC), target :: meteo_c !< meteorological data (input)
+ type (sfxDataVecTypeC), target :: sfx_c !< surface flux data (output)
type(C_PTR) :: meteo_c_ptr, sfx_c_ptr
type (sfx_sheba_param_C) :: model_param
type (sfx_surface_param) :: surface_param
--
GitLab