論文内ã®ç¬¬4ç« ã«ãŠã‘ã‚‹, åŠ ç†±ä¸å¿ƒã®ç·¯åº¦ã‚’固定ã—ãŸå ´åˆã®è¨ˆç®—ã‚’ã™ã‚‹ãŸã‚ã®ã‚³ãƒ¼ãƒ‰ * è¨ˆç®—çµæžœã¯å›³4.5 ã® (i), (ii) ã§ä½¿ã† * å¿…è¦ãªãƒ©ã‚¤ãƒ–ラリ * spml * gtool * ソースコード * test.f90 * 計算ã¯6回ã«åˆ†ã‘ã¦è¡Œã† * 6ã¤ã®åŠ ç†±ä¸å¿ƒã®(サイン)緯度 mu0=0.0, 0.04, 0.08, 0.12, 0.16, 0.20 ã®å€¤ã§è¨ˆç®—ã™ã‚‹ * ãã®ä»–ã®è¨å®šã¯åŒã˜ * 以下ã®ã‚ˆã†ã«ã™ã‚‹ * 計算方法 * åŠ ç†±ä¸å¿ƒã®ç·¯åº¦ã‚’変ãˆã‚‹ * 変数å: mu0 * コンパイル $ spmfrt -o test test.f90 * 実行ファイル test ãŒã§ãã‚‹ * 実行 $ ./test * ユーザーリソースã®åˆ¶é™ã«ã‚ˆã£ã¦ã§ããªã„å ´åˆãŒã‚ã‚‹ * ãã®å ´åˆã¯å®Ÿè¡Œã®å‰ã« $ ulimit -s 819200 ãªã©ã¨ã—ã¦ãŠã, ãã®ã‚ã¨ã«å®Ÿè¡Œã™ã‚‹ * 別セッションã¨ã—ã¦å®Ÿè¡Œã—ãŸã„å ´åˆã¯, screen コマンドを使ã†ã¨ã‚ˆã„ * 出力 * 出力ファイル * test.nc * ソース内㮠output_file ã§æŒ‡å®š * 毎回ã®è¨ˆç®—ã§ä¸Šæ›¸ãã•れるã“ã¨ã«æ³¨æ„ * 出力変数 * æ±è¥¿æµ (u) * å—åŒ—æµ (v) * é‰›ç›´æµ (w) * æ¸©ä½ (T) * æµç·šé–¢æ•° (msf) * Lindzen and Hou (1988) ã¯è³ªé‡æµç·šé–¢æ•°ã§ã‚ã‚‹ãŒ, ã“ã“ã§ã¯æµç·šé–¢æ•°ã¨ã—ã¦å‡ºåŠ›ã™ã‚‹ * æç”»ã®éš›ã«è³ªé‡æµç·šé–¢æ•°ã«ã™ã‚‹ * ソースコード (test.f90) 内ã®ãƒ‘ラメータ説明 * jm: å—åŒ—æ ¼å点数 * km: é‰›ç›´æ ¼å点数 (実際ã¯km+1ã®æ ¼å点) * nm: å—åŒ—åˆ‡æ–æ³¢æ•° * lm: é‰›ç›´åˆ‡æ–æ³¢æ•° * ri: 内åŠå¾„ (惑星åŠå¾„) * ro: 外åŠå¾„ * xl=ro-ri: モデル上端ã®é«˜ã• * PI: 円周率 * g: é‡åŠ›åŠ é€Ÿåº¦ * omega: 自転角速度 * delta_h: å—北温ä½å‹¾é…を決ã‚るパラメータ * delta_v: 鉛直温ä½å‹¾é…を決ã‚るパラメータ * nu_V: 鉛直拡散係数 * mu0: åŠ ç†±ä¸å¿ƒã®ã‚µã‚¤ãƒ³ç·¯åº¦ * T0: 温ä½å ´ã®åˆæœŸå€¤ * const: 摩擦係数 * tau: 放射緩和時定数 * dt: 時間刻ã¿å¹… (ç§’) * nt: ステップ数 * total_day=dt*nt: ç©åˆ†æ™‚é–“ (æ—¥) * ndisp: ファイル出力間隔ステップ数 * nprog: 表示間隔ステップ数