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