subroutine spml_init
!
!==== Dependency
!
use type_mod , only: INTKIND, STRING
use grid_3d_mod , only: im, jm, km, grid_3d_init
use grid_wavenumber_mod, only: nm, grid_wavenumber_init
use dc_trace, only: DbgMessage, BeginSub, EndSub
use dc_error, only: StoreError, USR_ECHAR
use wa_module, only: wa_Initial
!=end
implicit none
!-------------------------------------------------------------------
! 変数定義
!-------------------------------------------------------------------
character(STRING), parameter:: subname = "spml_init"
continue
!----------------------------------------------------------------
! Check Initialization
!----------------------------------------------------------------
call BeginSub(subname)
if (spml_initialized) then
call EndSub( subname, '%c is already called', c1=trim(subname) )
return
else
spml_initialized = .true.
endif
!----------------------------------------------------------------
! Version identifier
!----------------------------------------------------------------
call DbgMessage('%c :: %c', c1=trim(version), c2=trim(tagname))
!----------------------------------------------------------------
! grid_3d_mod と grid_wavenumber による初期化
!----------------------------------------------------------------
call grid_3d_init
call grid_wavenumber_init
!----------------------------------------------------------------
! wa_initial による初期化
!----------------------------------------------------------------
call wa_Initial(nm,im,jm,km)
call EndSub( subname, 'wa_initial(nm=<%d>, im=<%d>, jm=<%d>, km=<%d>)', i=(/nm, im, jm, km/) )
end subroutine spml_init