Class | Radiation |
In: |
physics/radiation.f90
|
Copyright (C) GFD Dennou Club, 2006. All rights reserved.
* Developer: SUGIYAMA Ko-ichiro * Version: $Id: radiation.f90,v 1.1.1.1 2006/04/25 03:43:58 deepconv Exp $ * Tag Name: $Name: $ * Change History:
モデルの放射過程を計算するためのパッケージ型モジュール 具体的には以下の項を計算するための関数を格納する.
* 一様冷却
subroutine Radiation_init (cfgfile) ! !NAMELIST から放射強制の設定を取得 ! !暗黙の型宣言禁止 implicit none !入力変数 character(*), intent(in) :: cfgfile ! NAMELIST から情報を取得 NAMELIST /radiation/ RadHeatRate, RadHeight open (10, FILE=cfgfile) read(10, NML=radiation) close(10) write(*,*) "Radiation, RadHeatRate: ", RadHeatRate write(*,*) "Radiation, RadHeight: ", RadHeight end subroutine