From 779da1ea5451f651686acc8720e185da3f7d1216 Mon Sep 17 00:00:00 2001
From: Uwe Schulzweida <uwe.schulzweida@mpimet.mpg.de>
Date: Tue, 9 Aug 2022 11:39:30 +0200
Subject: [PATCH] src/mo_cdi.f90: update
---
src/mo_cdi.f90 | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/src/mo_cdi.f90 b/src/mo_cdi.f90
index 807a4ea62..0f8c2e96f 100644
--- a/src/mo_cdi.f90
+++ b/src/mo_cdi.f90
@@ -394,6 +394,8 @@ module mo_cdi
public :: vlistInqVarChunkType
public :: vlistDefVarXYZ
public :: vlistInqVarXYZ
+ public :: vlistDefVarNSB
+ public :: vlistInqVarNSB
public :: vlistInqVarNumber
public :: vlistDefVarInstitut
public :: vlistInqVarInstitut
@@ -1550,6 +1552,22 @@ module mo_cdi
integer(c_int) :: f_result
end function vlistInqVarXYZ
+ subroutine vlistDefVarNSB(vlistID_dummy, varID_dummy, nsb_dummy) bind(c,&
+ & name = 'vlistDefVarNSB')
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int), value :: nsb_dummy
+ end subroutine vlistDefVarNSB
+
+ function vlistInqVarNSB(vlistID_dummy, varID_dummy) bind(c, name =&
+ & 'vlistInqVarNSB') result(f_result)
+ import c_int
+ integer(c_int), value :: vlistID_dummy
+ integer(c_int), value :: varID_dummy
+ integer(c_int) :: f_result
+ end function vlistInqVarNSB
+
function vlistInqVarNumber(vlistID_dummy, varID_dummy) bind(c, name =&
& 'vlistInqVarNumber') result(f_result)
import c_int
--
GitLab