Class dycore_grid_mod
In: dynamics/dycore_grid.f90

begin

begin

Dependency

Methods

dycore_grid_end   dycore_grid_init   im   jm   km   nm  

Included Modules

dycore_type_mod grid_3d_mod grid_wavenumber_mod dc_trace

Public Instance methods

Subroutine :

Dependency

Dependency

[Source]

  subroutine dycore_grid_end
  !==== Dependency
    use grid_3d_mod        , only: grid_3d_end
    use grid_wavenumber_mod, only: grid_wavenumber_end
    use dc_trace           , only: DbgMessage, BeginSub, EndSub
                                                                 !=end
    implicit none
    character(STRING), parameter:: subname = "dycore_grid_end"

    !----------------------------------------------------------------
    !   Check Initialization
    !----------------------------------------------------------------
    call BeginSub(subname)
    if ( .not. dycore_grid_initialized) then
       call EndSub( subname, 'dycore_grid_init was not called',        c1=trim(subname) )
       return
    else
       dycore_grid_initialized = .false.
    endif

    call grid_3d_end
    call grid_wavenumber_end

    call EndSub( subname, 'im=<%d>, jm=<%d>, km=<%d>, nm=<%d>',        i=(/im, jm, km, nm/) )
  end subroutine dycore_grid_end
Subroutine :

Dependency

Dependency

[Source]

  subroutine dycore_grid_init
  !==== Dependency
    use dycore_type_mod    , only: STRING
    use grid_3d_mod        , only: grid_3d_init
    use grid_wavenumber_mod, only: grid_wavenumber_init
    use dc_trace           , only: DbgMessage, BeginSub, EndSub
                                                                 !=end
    implicit none

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

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

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

    call grid_3d_init
    call grid_wavenumber_init

    call EndSub( subname, 'im=<%d>, jm=<%d>, km=<%d>, nm=<%d>',        i=(/im, jm, km, nm/) )
  end subroutine dycore_grid_init
im()
Variable :
im = 64 :integer(INTKIND), save
: 格子点の設定(Y) =end

The entity is grid_3d_mod#im

jm()
Variable :
jm = 32 :integer(INTKIND), save
: 格子点の設定(Y) =end

The entity is grid_3d_mod#jm

km()
Variable :
km = 12 :integer(INTKIND), save
: 格子点の設定(Y) =end

The entity is grid_3d_mod#km

nm()
Variable :
nm = 21 :integer(INTKIND), save
: 波数の設定 =end

The entity is grid_wavenumber_mod#nm

[Validate]