From 2a9600163cdff90ec4167f7ecbf3e6e85d1e0e59 Mon Sep 17 00:00:00 2001
From: Andrey Debolskiy <and.debol@gmail.com>
Date: Fri, 28 Feb 2025 17:48:00 +0300
Subject: [PATCH] typo fixed
---
srcF/sfx_api_lake.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/srcF/sfx_api_lake.f90 b/srcF/sfx_api_lake.f90
index efd3b36..17ed095 100644
--- a/srcF/sfx_api_lake.f90
+++ b/srcF/sfx_api_lake.f90
@@ -53,7 +53,7 @@ contains
!> @brief converts sfx cell output to legacy arg [AR2 INMCM format] array
! ----------------------------------------------------------------------------
use, intrinsic :: iso_c_binding, only: real_d => c_double, &
- real_d => c_float! 8-byte real
+ real_f => c_float! 8-byte real
implicit none
type(sfxDataType), intent(in) :: sfx
--
GitLab