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