| Class | dycore_grid_mod |
| In: |
dynamics/dycore_grid.f90
|
| Subroutine : |
subroutine dycore_grid_end
!==== Dependency
use grid_3d_mod , only: grid_3d_end
use grid_wavenumber_mod, only: grid_wavenumber_end
use dc_trace , only: DbgMessage, BeginSub, EndSub
!=end
implicit none
character(STRING), parameter:: subname = "dycore_grid_end"
!----------------------------------------------------------------
! Check Initialization
!----------------------------------------------------------------
call BeginSub(subname)
if ( .not. dycore_grid_initialized) then
call EndSub( subname, 'dycore_grid_init was not called', c1=trim(subname) )
return
else
dycore_grid_initialized = .false.
endif
call grid_3d_end
call grid_wavenumber_end
call EndSub( subname, 'im=<%d>, jm=<%d>, km=<%d>, nm=<%d>', i=(/im, jm, km, nm/) )
end subroutine dycore_grid_end
| Subroutine : |
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
| Variable : | |||
| im = 64 : | integer(INTKIND), save
|
Original external subprogram is grid_3d_mod#im
| Variable : | |||
| jm = 32 : | integer(INTKIND), save
|
Original external subprogram is grid_3d_mod#jm
| Variable : | |||
| km = 12 : | integer(INTKIND), save
|
Original external subprogram is grid_3d_mod#km
| Variable : | |||
| nm = 21 : | integer(INTKIND), save
|
Original external subprogram is grid_wavenumber_mod#nm