The UFZ services GitLab and Mattermost will be unavailable on Monday, January 24 from 06:00 AM to 08:00 AM due to maintenance work.

Want to get a quick-start introduction to Shell, Git and GitLab? Join the next beginners course on 28/31 January. Register now!

Commit a2a36620 authored by Sebastian Müller's avatar Sebastian Müller 🐈
Browse files

wrapper: add more routines

parent 1210a204
from .wrapper import set_globals, set_container, print_vars
from .wrapper import *
subroutine set_globals(n,A,B,C)
USE mo_lib_functions, ONLY: set_global_vars
implicit none
USE mo_lib_functions, ONLY: set_global_vars
implicit none
integer(4), intent(in) :: n
integer(4), intent(in) :: A
real(8), intent(in) :: B
real(8), dimension(n), intent(in) :: C
integer(4), intent(in) :: n
integer(4), intent(in) :: A
real(8), intent(in) :: B
real(8), dimension(n), intent(in) :: C
call set_global_vars(A,B,C)
call set_global_vars(A,B,C)
end subroutine set_globals
subroutine set_container(n,A,B,C)
USE mo_lib_functions, ONLY: set_container_vars
implicit none
USE mo_lib_functions, ONLY: set_container_vars
implicit none
integer(4), intent(in) :: n
integer(4), intent(in) :: A
real(8), intent(in) :: B
real(8), dimension(n), intent(in) :: C
integer(4), intent(in) :: n
integer(4), intent(in) :: A
real(8), intent(in) :: B
real(8), dimension(n), intent(in) :: C
call set_container_vars(A,B,C)
call set_container_vars(A,B,C)
end subroutine set_container
subroutine print_vars()
USE mo_lib_functions, ONLY: print_globals
implicit none
USE mo_lib_functions, ONLY: print_globals
implicit none
call print_globals()
call print_globals()
end subroutine print_vars
subroutine print_bar()
implicit none
print*, "bar"
end subroutine print_bar
subroutine read_nc(fname, vname_data)
USE mo_lib_functions, ONLY: readfile_alt
implicit none
character(len = *), intent(in) :: fname
character(len = *), intent(in) :: vname_data
call readfile_alt(fname, vname_data)
end subroutine read_nc
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