Class w_spectrum_module
In: src/w_spectrum_module.f90

Methods

n_EnergyFromStreamfunction_w   n_EnstrophyFromStreamfunction_w   nm_EnergyFromStreamfunction_w   nm_EnstrophyFromStreamfunction_w  

Included Modules

w_base_module

Public Instance methods

n_EnergyFromStreamfunction_w(w_Strfunc) result(n_EnergyFromStreamfunction_w)
n_EnergyFromStreamfunction_w :real(8), dimension(0:nm)
: (水平全波数 n 空間)
w_Strfunc(:) :real(8), intent(in)
: 流線関数

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

[Source]



    function n_EnergyFromStreamfunction_w(w_Strfunc)
      real(8), intent(in)      :: w_Strfunc(:) ! 流線関数
      real(8), dimension(0:nm)            :: n_EnergyFromStreamfunction_w     ! (水平全波数 n 空間) 

      do n=0,nm
         n_EnergyFromStreamfunction_w(n)                = 0.5 * n*(n+1)                 * sum(w_StrFunc(l_nm(n,(/(m,m=-n,n)/)))**2,1)
      enddo

    end function n_EnergyFromStreamfunction_w
n_EnstrophyFromStreamfunction_w(w_Strfunc) result(n_EnstrophyFromStreamfunction_w)
n_EnstrophyFromStreamfunction_w :real(8), dimension(0:nm)
: (水平全波数 n 空間)
w_Strfunc(:) :real(8), intent(in)
: 流線関数(スペクトルデータ)

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

[Source]



    function n_EnstrophyFromStreamfunction_w(w_Strfunc)
      real(8), intent(in)      :: w_Strfunc(:) ! 流線関数(スペクトルデータ)
      real(8), dimension(0:nm)            :: n_EnstrophyFromStreamfunction_w  !  (水平全波数 n 空間)        

      do n=0,nm
         n_EnstrophyFromStreamfunction_w(n)                = 0.5 * n**2 * (n+1)**2                 * sum(w_StrFunc(l_nm(n,(/(m,m=-n,n)/)))**2,1)
      enddo
    end function n_EnstrophyFromStreamfunction_w
nm_EnergyFromStreamfunction_w(w_Strfunc) result(nm_EnergyFromStreamfunction_w)
nm_EnergyFromStreamfunction_w :real(8), dimension(0:nm,-nm:nm)
: (水平全波数 n, 帯状波数 m 空間)
w_Strfunc(:) :real(8), intent(in)
: 流線関数(スペクトルデータ)

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

[Source]

    function nm_EnergyFromStreamfunction_w(w_Strfunc)
      real(8), intent(in)   :: w_Strfunc(:)   ! 流線関数(スペクトルデータ)
      real(8), dimension(0:nm,-nm:nm)            :: nm_EnergyFromStreamfunction_w   ! (水平全波数 n, 帯状波数 m 空間)

      nm_EnergyFromStreamfunction_w = w_spectrum_VMiss

      do n=0,nm
         do m=-n,n
            nm_EnergyFromStreamfunction_w(n,m)                  = 0.5 * n*(n+1) * w_Strfunc(l_nm(n,m))**2
         enddo
      enddo
    end function nm_EnergyFromStreamfunction_w
nm_EnstrophyFromStreamfunction_w(w_Strfunc) result(nm_EnstrophyFromStreamfunction_w)
nm_EnstrophyFromStreamfunction_w :real(8), dimension(0:nm,-nm:nm)
: (水平全波数 n, 帯状波数 m 空間)
w_Strfunc(:) :real(8), intent(in)
: 流線関数

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

[Source]

    function nm_EnstrophyFromStreamfunction_w(w_Strfunc)
      real(8), intent(in)   :: w_Strfunc(:)   ! 流線関数
      real(8), dimension(0:nm,-nm:nm)           :: nm_EnstrophyFromStreamfunction_w ! (水平全波数 n, 帯状波数 m 空間)

      nm_EnstrophyFromStreamfunction_w = w_spectrum_VMiss

      do n=0,nm
         do m=-n,n
            nm_EnstrophyFromStreamfunction_w(n,m)                  = 0.5 * n**2 * (n+1)**2                     * w_Strfunc(l_nm(n,m))**2
         enddo
      enddo
    end function nm_EnstrophyFromStreamfunction_w

[Validate]