2017年3月7日火曜日

Root canalで$2000 T_T

Root canalの治療費負担額等。

右上奥から3ばん目の歯の神経が死んでしまったようなので取り除かなければいけないと診断されたんだけど、その治療費が半端ない。

$2000。。。

そして大学院生の医療保険でどれくらいカバーされるか調べてもらったところ

$0 。。。

通常、というか年間保険負担額は歯関係の治療の場合、上限$750らしく、最近その上限を超えてしまったらしい。なので来年の1月1日まで保険負担額ゼロだと。

どうしよう。ほっといたら死んでしまった神経が腐敗していって体の中に菌が入っていく可能性がある。来年まで待てば$2000の70%までカバーしてもらえるのかな。つまりおそらく$600で治療してもらえるはず。

TAで今学期稼いだ金が$2000ちょっとなのでそれが全部歯の神経に飛ばされていくぅ〜。お金はたまりませぬな。しかし健康ならいいか。

2017年2月28日火曜日

歯の神経が死んでしまったら

ビクトリアの歯内療法学専門医のところへ行ってきた。神経を抜くことを勧められた。

冷たいものに敏感だった歯がそうでなくなるのは神経が死んでしまったサイン。

死んだ神経を放置しておくのは生ゴミを放置しておくのと同じ。

どんどん腐っていく。

ほっといておくと顔が腫れる人もいるとか。

ばい菌は神経を通り抜けて体の内部に侵入できるらしい。上の歯の場合は鼻にもたどり着けるって。

http://a-kita2.com/2015/08/28/%E6%AD%AF%E3%81%AE%E7%A5%9E%E7%B5%8C%E3%81%8C%E6%AD%BB%E3%82%93%E3%81%A7%E3%81%97%E3%81%BE%E3%81%86%E3%81%A8%E3%81%AF%E3%81%84%E3%81%A3%E3%81%9F%E3%81%84%E3%81%A9%E3%81%86%E3%81%84%E3%81%86%E7%8A%B6/

治療費は20万円かかるって。保険適用でも10万はするだろうと。

日本だと神経抜くだけなら四千円(http://hanoblog.com/carious-doctors-fee-5188)ってあるけどこれが三割負担だとしても総額は1万3千円程度。かなり差があるな。


2016年12月19日月曜日

七面鳥の丸焼きをやってみた

人生初、七面鳥の丸焼きをやってみた。

七面鳥はムスリムブッチャーの店で注文。1パウンドあたり$4.85とかなり高いがハラールターキーが手に入るのはビクトリアではおそらくここのみなので仕方ない。パッケージングされたのはこんな感じ↓

  
重さを聞くのを忘れていたが値段は税込でおよそ$70。1パウンドあたりの値段から逆算して約12パウンド(5.5kg)と推測。

家の中も暑くないので室温で1日強かけて解凍。袋から取り出して水洗いして塩胡椒・スパイス等を表面(皮)と皮の内側を手で慎重に引き裂きながら擦り込む(それでも皮が一部破れてしまった。。。)。冷蔵庫に入れて一晩寝かせる。
 翌日、焼き始める一時間半前に冷蔵庫から取り出し(バターが足りなかったので)バターを擦り込み表面にはさらにオリーブオイルもかける。四時間かけて325℉のオーブンで焼く。45分毎にオーブンから取り出してbasting(乾燥・焦げを防ぐために出て来た油脂を表面にかける作業)を行う。付属品の首と肝は(あとでグレービーソースの元となる)油脂と絡めるために底に設置する。

最初の45分ですでに表面が茶色に変わり始めていたので、これでは焦げてしまうと思い、アルミホイルで表面を覆う。
自分で言うのもあれだが初めてにしてはなかなかの出来。タイムリーブを擦り込みすぎたと心配していたがそれほど強くもなかった。塩加減もちょうどいい。

スタッフィング(ドレッシング)は七面鳥に詰めると焼くのが難しくなるので別に用意して作った。セロリがなかったので二種類の玉ねぎを使った。

七面鳥から出て来た油脂を別の鍋に移し塩胡椒で味付けし水で溶かした片栗粉を入れグレービーソースは出来上がり。

他にニューファンドランドの名物、Jigg's dinnerも海塩を代用して作った。これまたちょうどいい塩加減。

丸焼きって作りながら味見とか出来ないので心配やったけどうまく出来て良かった。唯一失敗点を挙げると胸の裏側(底面)付近の肉が一部若干冷たかったので食べなかった。次回は温度をもう少しだけ下げて(300℉?)一時間ぐらい長く焼いてみるといいかも。

2016年11月29日火曜日

T&S damping in NEMO

namelist has two parameters for T&S damping: ln_tsd_tradmp and ln_tradmp.

namelist
ln_tsd_tradmp = .false.   !  damping of ocean T & S toward T &S input data (T) or not (F)
ln_tradmp   =  .true.   !  add a damping termn (T) or not (F)

It's not clear to me the difference of the two parameters.

ln_tsd_tradmp and ln_tradmp
Run1: T & F --> Ran
Run2: T & T --> Ran
Run3: F & T --> ln_tsd_tradmp was force set to T (see notes below) --> Ran aborted due to exceeding zonal current.. skipping.
Run4: T & F but with a restoring time scale of 1 day (this is done to compare the results with Run1 to see if damping was done or not) -->

ocean.output for Run 3
===>>> : W A R N I N G
         ===============

 tra_dmp_init: read T-S data not initialized, we force ln_tsd_tradmp=T

 dta_tsd_init : Temperature & Salinity data
 ~~~~~~~~~~~~
    Namelist namtsd
       Initialisation of ocean T & S with T &S input data   ln_tsd_init   =  T
       damping of ocean T & S toward T &S input data        ln_tsd_tradmp =  T


ncdiff -v tn NAA_00000021_restart_2.nc NAA_00000021_restart_1.nc 2minus1.nc
ncdiff -v tn NAA_00000021_restart_4.nc NAA_00000021_restart_1.nc 4minus1.nc

Run1 and Run2 produced different output, hinting that ln_tradmp needs to be T to activate damping.
Run1 and Run4 are produced the identical output, confirming that ln_tradmp needs to be T to activate damping.

Hence, to activate damping, ln_tradmp needs to be .true. while ln_tsd_tradmp can be .false. (because it will be force set to .true. if ln_tradmp is .true.).

2016年11月28日月曜日

ttest in namelist_ice

Why set ttest? Shouldn't we be creating ice if sst is at freezing point of sea water?


namelist_ice

ttest       =  2.0      !  threshold water temperature for initial sea ice


Source: http://forge.ipsl.jussieu.fr/little_nemo/browser/vendor/nemo/current/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90?rev=2

95

      t_bo(:,:) = tfreez( tsn(:,:,1,jp_sal) ) * tmask(:,:,1)       ! freezing/melting point of sea water [Celcius]
96
97      DO jj = 1, jpj                                       ! ice if sst <= t-freez + ttest
98         DO ji = 1, jpi
99            IF( tsn(ji,jj,1,jp_tem)  - t_bo(ji,jj) >= ttest ) THEN   ;   zidto(ji,jj) = 0.e0      ! no ice
100            ELSE                                                     ;   zidto(ji,jj) = 1.e0      !    ice
101            ENDIF
102         END DO
103      END DO