| Class | wa_module |
| In: |
src/wa_module.f90
|
| n_in : | integer,intent(in)
| ||
| i_in : | integer,intent(in)
| ||
| j_in : | integer,intent(in)
| ||
| k_in : | integer,intent(in)
|
subroutine wa_Initial(n_in,i_in,j_in,k_in)
integer,intent(in) :: i_in, j_in ! 格子点の設定(東西, 南北)
integer,intent(in) :: n_in ! 切断波数の設定
integer,intent(in) :: k_in ! 最大データ数(層数)を記憶
call w_deriv_Initial(n_in,i_in,j_in)
call wa_deriv_Initial(k_in)
end subroutine wa_Initial