Class cloudset
In: setup/cloudset.f90

Methods

Included Modules

dc_types dc_iounit dc_message

Public Instance methods

DensIce
Variable :
DensIce = 0.0d0 :real(DP), save, public
: ¸ÇÁê¤ÎÌ©ÅÙ [kg/m^3]
Kd
Variable :
Kd = 0.0d0 :real(DP), save, public
: Â絤¤ÎÇ®ÅÁƳ·¸¿ô [W/K m]
NumAerosol
Variable :
NumAerosol = 0.0d0 :real(DP), save, public
: ¥¨¥¢¥í¥¾¥ë¤Î¿ôÌ©ÅÙ [1/kg]
RadiAerosol
Variable :
RadiAerosol = 0.0d0 :real(DP), save, public
: ¥¨¥¢¥í¥¾¥ë¤Î¿ôÌ©ÅÙ [1/kg]
SatRatioCr
Variable :
SatRatioCr = 0.0d0 :real(DP), save, public
: Î׳¦Ë°ÏÂÈæ []
SatRtWetAdia
Variable :
SatRtWetAdia = 0.0d0 :real(DP), save, public
: ¼¾½áÃÇÇ®Àþ¤Î˰ÏÂÈæ []
Subroutine :
cfgfile :character(STRING), intent(in)

This procedure input/output NAMELIST#constants_marscond_nml .

[Source]

  subroutine cloudset_init(cfgfile)
    
    character(STRING), intent(in) :: cfgfile
    integer                       :: unit

    ! NAMELIST
    NAMELIST /constants_marscond_nml/ DensIce, NumAerosol, RadiAerosol, Kd, SatRatioCr, SatRtWetAdia

    call FileOpen(unit, file=cfgfile, mode='r')
    read(unit, NML=constants_marscond_nml)
    close(unit)    

    call MessageNotify( "M", "cloudset_init", "DensIce = %f",  d=(/DensIce/) )
    call MessageNotify( "M", "cloudset_init", "NumAerosol = %f",  d=(/NumAerosol/) )
    call MessageNotify( "M", "cloudset_init", "RadiAerosol = %f",  d=(/RadiAerosol/) )
    call MessageNotify( "M", "cloudset_init", "Kd = %f",  d=(/Kd/) )
    call MessageNotify( "M", "cloudset_init", "SatRatioCr = %f",  d=(/SatRatioCr/) )
    call MessageNotify( "M", "cloudset_init", "SatRtWetAdia = %f",  d=(/SatRtWetAdia/) )

  end subroutine cloudset_init