Class physset
In: src/setup/physset.f90

Methods

physset_init  

Included Modules

dc_trace

Public Instance methods

physset_init(cfgfile)
cfgfile :character(*), intent(in)
: end

[Source]

  subroutine physset_init(cfgfile)
    !=== Dependency

                                                                 !=end
    character(*), intent(in) :: cfgfile
                                                                 !=begin
    !=== NAMELIST
    NAMELIST /physset/ Grav, TempSfc, PressSfc, CpDry, MolWtDry,              GasRUniv, Pi, TempRef, PressRef
                                                                 !=end
    call BeginSub("physset_init",                  fmt="%c",                        c1="Initialize parameters of physics. ")

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


    !==== ³ΞΗ§
!    write(*,*) "Grav", Grav
!    write(*,*) "TempSfc", TempSfc
!    write(*,*) "PressSfc", PressSfc
!    write(*,*) "CpDry", CpDry
!    write(*,*) "MolWtDry", MolWtDry
!    write(*,*) "GasRUniv", GasRUniv
!    write(*,*) "Pi", Pi
!    write(*,*) "TempRef", TempRef
!    write(*,*) "PressRef", PressRef

    call EndSub("physset_init")

  end subroutine physset_init

[Validate]