subroutine dycore_grid_init
!==== Dependency
use dycore_type_mod , only: STRING
use grid_3d_mod , only: grid_3d_init
use grid_wavenumber_mod, only: grid_wavenumber_init
use dc_trace , only: DbgMessage, BeginSub, EndSub
!=end
implicit none
!-----------------------------------------------------------------
! 変数定義
!-----------------------------------------------------------------
character(STRING), parameter:: subname = "dycore_grid_init"
!----------------------------------------------------------------
! Check Initialization
!----------------------------------------------------------------
call BeginSub(subname)
if (dycore_grid_initialized) then
call EndSub( subname, '%c is already called', c1=trim(subname) )
return
else
dycore_grid_initialized = .true.
endif
!----------------------------------------------------------------
! Version identifier
!----------------------------------------------------------------
call DbgMessage('%c :: %c', c1=trim(version), c2=trim(tagname))
call grid_3d_init
call grid_wavenumber_init
call EndSub( subname, 'im=<%d>, jm=<%d>, km=<%d>, nm=<%d>', i=(/im, jm, km, nm/) )
end subroutine dycore_grid_init