Class wa_spectrum_module
In: src/wa_spectrum_module.f90

Methods

na_EnergyFromStreamfunction_wa   na_EnstrophyFromStreamfunction_wa   nma_EnergyFromStreamfunction_wa   nma_EnstrophyFromStreamfunction_wa  

Included Modules

w_base_module

Public Instance methods

na_EnergyFromStreamfunction_wa(wa_Strfunc) result(na_EnergyFromStreamfunction_wa)
na_EnergyFromStreamfunction_wa :real(8), dimension(0:nm,size(wa_Strfunc,2))
: エネルギースペクトル
wa_Strfunc(:,:) :real(8), intent(in)
: 流線関数(スペクトルデータ)

————— エネルギースペクトル計算 ——————

[Source]



    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(wa_Strfunc) result(na_EnstrophyFromStreamfunction_wa)
na_EnstrophyFromStreamfunction_wa :real(8), dimension(0:nm,size(wa_Strfunc,2))
: エンストロフィースペクトル
wa_Strfunc(:,:) :real(8), intent(in)
: 流線関数(スペクトルデータ)

————— エンストロフィースペクトル計算 ——————

[Source]



    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(wa_Strfunc) result(nma_EnergyFromStreamfunction_wa)
nma_EnergyFromStreamfunction_wa :real(8), dimension(0:nm,-nm:nm,size(wa_Strfunc,2))
: エネルギースペクトル
wa_Strfunc(:,:) :real(8), intent(in)
: 流線関数(スペクトルデータ)

————— エネルギースペクトル計算 ——————

[Source]

    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(wa_Strfunc) result(nma_EnstrophyFromStreamfunction_wa)
nma_EnstrophyFromStreamfunction_wa :real(8), dimension(0:nm,-nm:nm,size(wa_Strfunc,2))
: エンストロフィースペクトル
wa_Strfunc(:,:) :real(8), intent(in)
: 流線関数(スペクトルデータ)

————— エンストロフィースペクトル計算 ——————

[Source]


    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

[Validate]