Class dycore_grid_mod
In: src/run/dycore_grid.f90

Methods

dycore_grid_init  

Included Modules

dycore_type_mod grid_3d_mod grid_wavenumber_mod dc_trace

Public Instance methods

dycore_grid_init()

((< grid_3d_mod >)) と ((< grid_wavenumber_mod >)) の初期化を行なう。

[Source]

  subroutine dycore_grid_init
  !==== Dependency

                                                                 !=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

[Validate]