Commit c1521094 authored by bjb's avatar bjb
Browse files

Temporary fix for circular compilation

parent facf9681
!$Id: m2d.F90,v 1.29 2009-05-12 10:50:44 bjb Exp $
!$Id: m2d.F90,v 1.30 2009-05-13 09:46:10 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -29,8 +29,15 @@
use halo_zones, only : update_2d_halo,wait_halo
use halo_zones, only : U_TAG,V_TAG,H_TAG
use variables_2d
use input, only: get_2d_field
IMPLICIT NONE
! Temporary interface (should be read from module):
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
!
! !PUBLIC DATA MEMBERS:
logical :: have_boundaries
......
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