subroutine SetDustFluxInit
!
! set_dust_flux �≪�吾�ャ�若������������茵����障��.
! NAMELIST#set_dust_flux_nml ����粋昭�帥��������膓����ц�����憗��.
!
! "set_dust_flux" module is initialized.
! "NAMELIST#set_dust_flux_nml" is loaded in this procedure.
!
! �≪�吾�ャ�若����� ; USE statements
!
! 腮��ュ�������<��
! Kind type parameter
!
use dc_types, only: STDOUT ! 罔�羣��阪�����臀����. Unit number of standard output
! �����ゃ���ュ�阪��茖���
! File I/O support
!
use dc_iounit, only: FileOpen
! ���鴻�������若�水�阪��
! History data output
!
use gtool_historyauto, only: HistoryAutoAddVariable
! �����ユ��������宴��
! Calendar and Date handler
!
use dc_calendar, only: DCCalInquire
! NAMELIST ���<�ゃ���ュ�����≪�������若���c������
! Utilities for NAMELIST file input
!
use namelist_util, only: namelist_filename, NmlutilMsg, NmlutilAryValid
! 絎h��� ; Declaration statements
!
implicit none
integer :: hour_in_a_day
integer :: min_in_a_hour
real(DP) :: sec_in_a_min
integer:: unit_nml ! NAMELIST ���<�ゃ�����若���括���臀����.
! Unit number for NAMELIST file open
integer:: iostat_nml ! NAMELIST 顄㏍�粋昭�炊���� IOSTAT.
! IOSTAT of NAMELIST read
!!$
!!$ logical :: FlagUseOfEpochDate
!!$ character(TOKEN):: date_print
! NAMELIST 紊��亥召
! NAMELIST group name
!
namelist /set_dust_flux_nml/ StartDay, DustFlux
!
! �����������ゃ���ゃ��������������膓� "set_dust_flux#SetDustFluxInit"
! ���純�若�鴻�潟�若�������с������.
!
! Refer to source codes in the initialization procedure
! "set_dust_flux#SetDustFluxInit" for the default values.
!
! 絎�茵��� ; Executable statement
!
if ( set_dust_flux_inited ) return
! �����������ゃ��┃絎�
! Default values settings
!
StartDay = 0.0_DP
DustFlux = 1.0e-6_DP
! NAMELIST ����粋昭��
! NAMELIST is input
!
if ( trim(namelist_filename) /= '' ) then
call FileOpen( unit_nml, namelist_filename, mode = 'r' ) ! (in)
rewind( unit_nml )
read( unit_nml, nml = set_dust_flux_nml, iostat = iostat_nml ) ! (out)
close( unit_nml )
call NmlutilMsg( iostat_nml, module_name ) ! (in)
end if
!
! Preparation of length of a day in second
!
call DCCalInquire( hour_in_day = hour_in_a_day, min_in_hour = min_in_a_hour, sec_in_min = sec_in_a_min )
sec_in_a_day = hour_in_a_day * min_in_a_hour * sec_in_a_min
! 篆�絖�������違���蚊��篁���
! Allocate variables for saving
!
! ���鴻�������若�水�阪�����������吾����亥�脂��
! Register of variables for history data output
!
!!$ call HistoryAutoAddVariable( 'xxxxx' , &
!!$ & (/ 'lon ', 'lat ', 'sig', 'time'/), &
!!$ & 'xxxx', 'W m-2' )
! �医� ; Print
!
call MessageNotify( 'M', module_name, '----- Initialization Messages -----' )
call MessageNotify( 'M', module_name, 'StartDay = %f', d = (/ StartDay /) )
call MessageNotify( 'M', module_name, 'DustFlux = %f', d = (/ DustFlux /) )
call MessageNotify( 'M', module_name, '-- version = %c', c1 = trim(version) )
set_dust_flux_inited = .true.
end subroutine SetDustFluxInit