Provide Grid Information.
use dycore_type_mod , only : STRING use grid_3d_mod , only : im, jm, km use grid_wavenumber_mod, only : nm
private public :: dycore_grid_init, dycore_grid_end ! subroutines public :: im, jm, km, nm ! variables
grid_3d_mod �� grid_wavenumber_mod �ν������Ԥʤ���
subroutine dycore_grid_init
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
grid_3d_mod �� grid_wavenumber_mod �ν�λ������Ԥʤ���
subroutine dycore_grid_end
use grid_3d_mod , only: grid_3d_end use grid_wavenumber_mod, only: grid_wavenumber_end use dc_trace , only: DbgMessage, BeginSub, EndSub