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