Definition at line 16 of file VirtualModel.f90.
◆ get_virtual_model_by_id()
class(virtualmodeltype) function, pointer virtualmodelmodule::get_virtual_model::get_virtual_model_by_id |
( |
integer(i4b) |
model_id | ) |
|
|
private |
Definition at line 349 of file VirtualModel.f90.
351 integer(I4B) :: model_id
352 class(VirtualModelType),
pointer :: virtual_model
355 class(*),
pointer :: vm
357 virtual_model => null()
361 class is (virtualmodeltype)
362 if (vm%id == model_id)
then
type(listtype), public virtual_model_list
◆ get_virtual_model_by_name()
class(virtualmodeltype) function, pointer virtualmodelmodule::get_virtual_model::get_virtual_model_by_name |
( |
character(len=*) |
model_name | ) |
|
|
private |
Definition at line 373 of file VirtualModel.f90.
375 character(len=*) :: model_name
376 class(VirtualModelType),
pointer :: virtual_model
379 class(*),
pointer :: vm
381 virtual_model => null()
385 class is (virtualmodeltype)
386 if (vm%name == model_name)
then
The documentation for this interface was generated from the following file: