Commit 993e1b3d authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

src/mo_cdi.f90 update

parent 4ccb6ce0
......@@ -1248,6 +1248,24 @@ module mo_cdi
end function vlistInqVarTimaccu
end interface
interface
subroutine vlistDefVarTypeOfGeneratingProcess(vlistID,varID,typeOfGeneratingProcess) bind(c,&
name='vlistDefVarTypeOfGeneratingProcess')
import :: c_int
integer(c_int), value :: vlistID
integer(c_int), value :: varID
integer(c_int), value :: typeOfGeneratingProcess
end subroutine vlistDefVarTypeOfGeneratingProcess
end interface
interface
integer(c_int) function vlistInqVarTypeOfGeneratingProcess(vlistID,varID) bind(c,name='vlistInqVarTypeOfGeneratingProcess')
import :: c_int
integer(c_int), value :: vlistID
integer(c_int), value :: varID
end function vlistInqVarTypeOfGeneratingProcess
end interface
interface
integer(c_int) function vlistInqVarSize(vlistID,varID) bind(c,name='vlistInqVarSize')
import :: c_int
......@@ -3160,6 +3178,8 @@ module mo_cdi
public :: vlistInqVarTimave
public :: vlistDefVarTimaccu
public :: vlistInqVarTimaccu
public :: vlistDefVarTypeOfGeneratingProcess
public :: vlistInqVarTypeOfGeneratingProcess
public :: vlistInqVarSize
public :: vlistDefIndex
public :: vlistInqIndex
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment