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