Skip to content
Snippets Groups Projects
Commit 449adbf5 authored by 数学の武士's avatar 数学の武士
Browse files

CXX sheba launch hotfix

parent 7eb257ef
No related branches found
No related tags found
No related merge requests found
Pipeline #1557 failed
Stage: build
Stage: test
Show whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
srcF/sfx_sheba.f90
+ 2
− 2
View file @ 449adbf5
...@@ -108,8 +108,8 @@ contains ...@@ -108,8 +108,8 @@ contains
integer i integer i
! ---------------------------------------------------------------------------- ! ----------------------------------------------------------------------------
#if defined(INCLUDE_CXX) #if defined(INCLUDE_CXX)
type (meteoDataVecTypeC), pointer :: meteo_c !< meteorological data (input) type (meteoDataVecTypeC), target :: meteo_c !< meteorological data (input)
type (sfxDataVecTypeC), pointer :: sfx_c !< surface flux data (output) type (sfxDataVecTypeC), target :: sfx_c !< surface flux data (output)
type(C_PTR) :: meteo_c_ptr, sfx_c_ptr type(C_PTR) :: meteo_c_ptr, sfx_c_ptr
type (sfx_sheba_param_C) :: model_param type (sfx_sheba_param_C) :: model_param
type (sfx_surface_param) :: surface_param type (sfx_surface_param) :: surface_param
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment