Commit 9080ed91 authored by kb's avatar kb
Browse files

added interface for get_2d_field()

parent 34c6e4da
!$Id: input.F90,v 1.4 2006-03-01 13:52:21 kbk Exp $
!$Id: input.F90,v 1.5 2009-05-12 07:08:27 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -25,6 +25,9 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: input.F90,v $
! Revision 1.5 2009-05-12 07:08:27 kb
! added interface for get_2d_field()
!
! Revision 1.4 2006-03-01 13:52:21 kbk
! renamed method to met_method
!
......@@ -90,6 +93,14 @@
end subroutine get_field
end interface
interface
subroutine get_2d_field(fn,varname,il,ih,jl,jh,f)
character(len=*),intent(in) :: fn,varname
integer, intent(in) :: il,ih,jl,jh
REALTYPE, intent(out) :: f
end subroutine get_2d_field
end interface
contains
!-----------------------------------------------------------------------
......
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