| Class | fileset_3d |
| In: |
setup/fileset_3d.f90
|
引数に与えられた NAMELIST ファイルから, I/O ファイル名を取得し, 保管するための変数型モジュール
| Subroutine : | |
| cfgfile : | character(*), intent(in) |
NAMELIST からファイル名に付けるタグを得て, 出力ファイル名を作成する.
This procedure input/output NAMELIST#fileset .
subroutine fileset_init(cfgfile)
!
!NAMELIST からファイル名に付けるタグを得て, 出力ファイル名を作成する.
!
!暗黙の型宣言禁止
implicit none
!入力変数
character(*), intent(in) :: cfgfile
!内部変数
integer :: unit !装置番号
integer :: s !ループ添字
!NAMELIST から情報を取得
NAMELIST /fileset/ InitFile, HistoryFilePrefix, ReStartFile, RandomFile, ExpTitle, ExpSrc , ExpInst
call FileOpen(unit, file=cfgfile, mode='r')
read(unit, NML=fileset)
close(unit)
!確認
call MessageNotify( "M", "fileset_init", "InitFile=%c", c1=trim(InitFile))
call MessageNotify( "M", "fileset_init", "HistoryFilePrefix=%c", c1=trim(HistoryFilePrefix) )
call MessageNotify( "M", "fileset_init", "ReStartFile=%c", c1=trim(ReStartFile) )
call MessageNotify( "M", "fileset_init", "RandomFile=%c", c1=trim(RandomFile) )
call MessageNotify( "M", "fileset_init", "ExpTitle=%c", c1=trim(ExpTitle) )
call MessageNotify( "M", "fileset_init", "ExpSrc=%c", c1=trim(ExpSrc) )
call MessageNotify( "M", "fileset_init", "ExpInst=%c", c1=trim(ExpInst) )
!ファイル名を格納する配列の割り付け
! 次元数は
! PotTemp, Exner, VelX, VelY, VelZ, MixRt(SpcNum), Km, Kh
! VorX, VorY, VorZ
! *BasicZ, *Zprof
! の合計 12 + SpcNum
FileNum = 12 + SpcNum
allocate(HistoryFile(FileNum))
allocate(gt_hist(FileNum))
HistoryFile(1) = trim(HistoryFilePrefix)//"_Exner.nc"
HistoryFile(2) = trim(HistoryFilePrefix)//"_PotTemp.nc"
HistoryFile(3) = trim(HistoryFilePrefix)//"_VelX.nc"
HistoryFile(4) = trim(HistoryFilePrefix)//"_VelY.nc"
HistoryFile(5) = trim(HistoryFilePrefix)//"_VelZ.nc"
HistoryFile(6) = trim(HistoryFilePrefix)//"_Km.nc"
HistoryFile(7) = trim(HistoryFilePrefix)//"_Kh.nc"
HistoryFile(8) = trim(HistoryFilePrefix)//"_BasicZ.nc"
HistoryFile(9) = trim(HistoryFilePrefix)//"_Zprof.nc"
HistoryFile(10) = trim(HistoryFilePrefix)//"_VorX.nc"
HistoryFile(11) = trim(HistoryFilePrefix)//"_VorY.nc"
HistoryFile(12) = trim(HistoryFilePrefix)//"_VorZ.nc"
do s = 1, SpcNum
HistoryFile(12+s) = trim(HistoryFilePrefix)//"_"//trim(SpcWetSymbol(s))//".nc"
end do
!確認
do s = 1, Filenum
call MessageNotify( "M", "fileset_init", "HistoryFile=%c", c1=trim(HistoryFile(s)) )
end do
end subroutine fileset_init