Class nameset
In: src/setup/nameset.f90

Methods

nameset_init  

Included Modules

dc_trace

Public Instance methods

nameset_init(cfgfile)
cfgfile :character(*), intent(in)
: Input

[Source]

  subroutine nameset_init(cfgfile)

    !=== Dependency


    !=== Input
    character(*), intent(in) :: cfgfile
    
    !=== NAMELIST
    NAMELIST /nameset/ ExpTitle, ExpSrc, ExpInst
                                                                 !=end        

    call BeginSub("nameset_init",                  fmt="%c",                        c1="Initialize experiment setup comment.")

    open (10, FILE=cfgfile)
    read(10, NML=nameset)
    close(10)


    !==== ³ΞΗ§
!    write(*,*) "ExpTitle ", ExpTitle
!    write(*,*) "ExpSrc ", ExpSrc
!    write(*,*) "ExpInst ", ExpInst


    call EndSub("nameset_init")
    
  end subroutine nameset_init

[Validate]