diff --git a/src/mo_cdi.f90 b/src/mo_cdi.f90 index 807a4ea6279b54e7ee3dab596fb2d0dace14920a..0f8c2e96fdb1b9ef94edcf4d6b2de52585577aa5 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