Class cloudset
In: moist/cloudset.f90

Methods

Included Modules

dc_trace

Public Instance methods

DensIce
Variable :
DensIce :real(8)
: 固相の密度 [kg/m^3]
Kd
Variable :
Kd :real(8)
: 大気の熱伝導係数 [W/K m]
 real(8)  :: SatPressA   ! 飽和蒸気圧の式の係数 [Pa]
 real(8)  :: SatPressB   ! 飽和蒸気圧の式の係数 [K]
NumAerosol
Variable :
NumAerosol :real(8)
: エアロゾルの数密度 [1/kg]
RadiAerosol
Variable :
RadiAerosol :real(8)
: エアロゾルの数密度 [1/kg]
SatRatioCr
Variable :
SatRatioCr :real(8)
: 臨界飽和比 []
SatRtWetAdia
Variable :
SatRtWetAdia :real(8)
: 湿潤断熱線の飽和比 [] =end
Subroutine :
cfgfile :character(*), intent(in)
: =begin === NAMELIST

Dependency

This procedure input/output NAMELIST#cloudset .

[Source]

  subroutine cloudset_init(cfgfile)
    !=== Dependency
    use dc_trace,      only: BeginSub, EndSub 
                                                                 !=end
    character(*), intent(in) :: cfgfile
                                                                 !=begin
    !=== NAMELIST
    NAMELIST /cloudset/ DensIce, NumAerosol, RadiAerosol, Kd, SatRatioCr, SatRtWetAdia
!      & SatPressA, SatPressB, SatRatioCr, SatRtWetAdia
                                                                 !=end
    call BeginSub("cloudset_init", fmt="%c", c1="Initialize parameters of cloud physics. ")

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

    !==== 確認
    write(*,*) "DensIce", DensIce
    write(*,*) "NumAerosol", NumAerosol
    write(*,*) "RadiAerosol", RadiAerosol
    write(*,*) "Kd", Kd
!    write(*,*) "SatPressA", SatPressA
!    write(*,*) "SatPressB", SatPressB
    write(*,*) "SatRatioCr", SatRatioCr
    write(*,*) "SatRtWetAdia", SatRtWetAdia


    call EndSub("cloudset_init")

  end subroutine cloudset_init