Class | dycore_grid_mod |
In: |
src/run/dycore_grid.f90
|
((< grid_3d_mod >)) と ((< grid_wavenumber_mod >)) の初期化を行なう。
subroutine dycore_grid_init !==== Dependency !=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