Class | wa_spectrum_module |
In: |
src/wa_spectrum_module.f90
|
na_EnergyFromStreamfunction_wa : | real(8), dimension(0:nm,size(wa_Strfunc,2))
| ||
wa_Strfunc(:,:) : | real(8), intent(in)
|
————— エネルギースペクトル計算 ——————
function na_EnergyFromStreamfunction_wa(wa_Strfunc) real(8), intent(in) :: wa_Strfunc(:,:) ! 流線関数(スペクトルデータ) real(8), dimension(0:nm,size(wa_Strfunc,2)) :: na_EnergyFromStreamfunction_wa ! エネルギースペクトル do n=0,nm na_EnergyFromStreamfunction_wa(n,:) = 0.5 * n*(n+1) * sum(wa_StrFunc(l_nm(n,(/(m,m=-n,n)/)),:)**2,1) enddo end function na_EnergyFromStreamfunction_wa
na_EnstrophyFromStreamfunction_wa : | real(8), dimension(0:nm,size(wa_Strfunc,2))
| ||
wa_Strfunc(:,:) : | real(8), intent(in)
|
————— エンストロフィースペクトル計算 ——————
function na_EnstrophyFromStreamfunction_wa(wa_Strfunc) ! real(8), intent(in) :: wa_Strfunc(:,:) ! 流線関数(スペクトルデータ) real(8), dimension(0:nm,size(wa_Strfunc,2)) :: na_EnstrophyFromStreamfunction_wa ! エンストロフィースペクトル do n=0,nm na_EnstrophyFromStreamfunction_wa(n,:) = 0.5 * n**2 * (n+1)**2 * sum(wa_StrFunc(l_nm(n,(/(m,m=-n,n)/)),:)**2,1) enddo end function na_EnstrophyFromStreamfunction_wa
nma_EnergyFromStreamfunction_wa : | real(8), dimension(0:nm,-nm:nm,size(wa_Strfunc,2))
| ||
wa_Strfunc(:,:) : | real(8), intent(in)
|
————— エネルギースペクトル計算 ——————
function nma_EnergyFromStreamfunction_wa(wa_Strfunc) real(8), intent(in) :: wa_Strfunc(:,:) ! 流線関数(スペクトルデータ) real(8), dimension(0:nm,-nm:nm,size(wa_Strfunc,2)) :: nma_EnergyFromStreamfunction_wa ! エネルギースペクトル nma_EnergyFromStreamfunction_wa = wa_spectrum_VMiss do n=0,nm do m=-n,n nma_EnergyFromStreamfunction_wa(n,m,:) = 0.5 * n*(n+1) * wa_Strfunc(l_nm(n,m),:)**2 enddo enddo end function nma_EnergyFromStreamfunction_wa
nma_EnstrophyFromStreamfunction_wa : | real(8), dimension(0:nm,-nm:nm,size(wa_Strfunc,2))
| ||
wa_Strfunc(:,:) : | real(8), intent(in)
|
————— エンストロフィースペクトル計算 ——————
function nma_EnstrophyFromStreamfunction_wa(wa_Strfunc) ! real(8), intent(in) :: wa_Strfunc(:,:) ! 流線関数(スペクトルデータ) real(8), dimension(0:nm,-nm:nm,size(wa_Strfunc,2)) :: nma_EnstrophyFromStreamfunction_wa ! エンストロフィースペクトル nma_EnstrophyFromStreamfunction_wa = wa_spectrum_VMiss do n=0,nm do m=-n,n nma_EnstrophyFromStreamfunction_wa(n,m,:) = 0.5 * n**2 * (n+1)**2 * wa_Strfunc(l_nm(n,m),:)**2 enddo enddo end function nma_EnstrophyFromStreamfunction_wa