31 lines
888 B
Fortran
31 lines
888 B
Fortran
module rof_comp_esmf
|
|
|
|
! ------------------------------------------------------------------------
|
|
! This is a stub version of rof_comp_esmf that can be used when we don't have a true
|
|
! rof component, just to satisfy the necessary interfaces in LILAC.
|
|
! ------------------------------------------------------------------------
|
|
|
|
use ESMF
|
|
|
|
implicit none
|
|
private
|
|
|
|
public :: rof_register
|
|
|
|
!===============================================================================
|
|
contains
|
|
!===============================================================================
|
|
|
|
subroutine rof_register(comp, rc)
|
|
|
|
! Stub rof_register routine - shouldn't ever be called!
|
|
|
|
! input/output argumenents
|
|
type(ESMF_GridComp) :: comp ! ROF grid component
|
|
integer, intent(out) :: rc ! return status
|
|
|
|
rc = ESMF_RC_NOT_IMPL
|
|
end subroutine rof_register
|
|
|
|
end module rof_comp_esmf
|