Class spml_mod
In: shared/spml.f90

begin

Dependency

このモジュール内部で用いるだけでなく、力学コアなどに wa_module の 関数群を提供するという意味で、敢えて only 属性をつけていない。 (本来は必要な全ての関数を指定すべきであろうが)。

Methods

spml_end   spml_init   tagname   version  

Included Modules

wa_module w_module type_mod grid_3d_mod grid_wavenumber_mod dc_trace dc_error

Attributes

Imported modules all of whose components are published again  []  wa_module

Public Instance methods

Subroutine :

Dependency

[Source]

  subroutine spml_end
  !==== Dependency
    use type_mod,  only: INTKIND, STRING
    use dc_trace,  only: DbgMessage, BeginSub, EndSub
                                                                 !=end
    implicit none
    character(STRING), parameter:: subname = "spml_end"

    !----------------------------------------------------------------
    !   Check Initialization
    !----------------------------------------------------------------
    call BeginSub(subname)
    if ( .not. spml_initialized) then
       call EndSub( subname, 'spml_init was not called',        c1=trim(subname) )
       return
    else
       ! 初期化を解除できないので .true. のまま
!       spml_initialized = .false.
       spml_initialized = .true.
    endif

    call EndSub( subname, 'spml_init can not release')
  end subroutine spml_end
Subroutine :

Dependency

[Source]

  subroutine spml_init
  !
  !==== Dependency
  !
    use type_mod           , only: INTKIND, STRING
    use grid_3d_mod        , only: im, jm, km, grid_3d_init
    use grid_wavenumber_mod, only: nm, grid_wavenumber_init
    use dc_trace,    only: DbgMessage, BeginSub, EndSub
    use dc_error,    only: StoreError, USR_ECHAR
    use wa_module,   only: wa_Initial
                                                                 !=end
    implicit none

    !-------------------------------------------------------------------
    !   変数定義
    !-------------------------------------------------------------------
    character(STRING), parameter:: subname = "spml_init"

  continue
    !----------------------------------------------------------------
    !   Check Initialization
    !----------------------------------------------------------------
    call BeginSub(subname)
    if (spml_initialized) then
       call EndSub( subname, '%c is already called', c1=trim(subname) )
       return
    else
       spml_initialized = .true.
    endif

    !----------------------------------------------------------------
    !   Version identifier
    !----------------------------------------------------------------
    call DbgMessage('%c :: %c', c1=trim(version), c2=trim(tagname))

    !----------------------------------------------------------------
    !   grid_3d_mod と grid_wavenumber による初期化
    !----------------------------------------------------------------
    call grid_3d_init
    call grid_wavenumber_init

    !----------------------------------------------------------------
    !   wa_initial による初期化
    !----------------------------------------------------------------
    call wa_Initial(nm,im,jm,km)

    call EndSub( subname, 'wa_initial(nm=<%d>, im=<%d>, jm=<%d>, km=<%d>)',        i=(/nm, im, jm, km/) )
  end subroutine spml_init
tagname()
Constant :
tagname = ’$Name: dcpam3-20060118 $’ :character(STRING),parameter
version()
Constant :
version = ’$Id: spml.f90,v 1.1.1.1 2005/11/08 14:10:23 morikawa Exp $’ :character(STRING),parameter

[Validate]