Class Radiation
In: physics/radiation.f90

    Copyright (C) GFD Dennou Club, 2006. All rights reserved.

Module Radiation

  * 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:

Overview

モデルの放射過程を計算するためのパッケージ型モジュール 具体的には以下の項を計算するための関数を格納する.

 * 一様冷却

Error Handling

Bugs

Note

Future Plans

Methods

Included Modules

GridSet TimeSet basicset

Public Instance methods

[Source]

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

[Validate]