Class: cloudset

Methods

DensIce Kd NumAerosol RadiAerosol SatRatioCr SatRtWetAdia cloudset_init

Included Modules

dc_trace

Public Instance methods

DensIce

Variable :

DensIce :

real(8)

:	固相の密度 [kg/m^3]

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

cloudset_init( cfgfile )

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