Class | radiation_dcpam_E_V1 |
In: |
radiation/radiation_dcpam_E_V1.f90
|
Note that Japanese and English are described in parallel.
地球大気向け放射モデル.
This is a radiation model for the Earth‘s atmospehre.
Radiation in the wavenumber range from 40 to 2600 cm-1 is calculated in the routine of long wave radiation. Radiation in the wavenumber range from 2600 to 66667 cm-1 (0.15 to 3.85 micron) is calculated in the routine of shortwave radiation.
!$ ! RadiationFluxDennouAGCM : | 放射フラックスの計算 |
!$ ! RadiationDTempDt : | 放射フラックスによる温度変化の計算 |
!$ ! RadiationFluxOutput : | 放射フラックスの出力 |
!$ ! RadiationFinalize : | 終了処理 (モジュール内部の変数の割り付け解除) |
!$ ! ———— : | ———— |
!$ ! RadiationFluxDennouAGCM : | Calculate radiation flux |
!$ ! RadiationDTempDt : | Calculate temperature tendency with radiation flux |
!$ ! RadiationFluxOutput : | Output radiation fluxes |
!$ ! RadiationFinalize : | Termination (deallocate variables in this module) |
Subroutine : | |||
xy_SurfAlbedo( 0:imax-1, 1:jmax ) : | real(DP), intent(in ) | ||
xyz_Press( 0:imax-1, 1:jmax, 1:kmax ) : | real(DP), intent(in ) | ||
xyr_Press( 0:imax-1, 1:jmax, 0:kmax ) : | real(DP), intent(in ) | ||
xyz_Temp( 0:imax-1, 1:jmax, 1:kmax ) : | real(DP), intent(in ) | ||
xyz_QVap( 0:imax-1, 1:jmax, 1:kmax ) : | real(DP), intent(in )
| ||
xyz_QO3( 0:imax-1, 1:jmax, 1:kmax ) : | real(DP), intent(in )
| ||
xyz_Height( 0:imax-1, 1:jmax, 1:kmax ) : | real(DP), intent(in ) | ||
xy_SurfTemp(0:imax-1, 1:jmax) : | real(DP), intent(in ) | ||
xyr_RadSFlux( 0:imax-1, 1:jmax, 0:kmax ) : | real(DP), intent(out) | ||
xyr_RadLFlux(0:imax-1, 1:jmax, 0:kmax) : | real(DP), intent(out) | ||
xyra_DelRadLFlux(0:imax-1, 1:jmax, 0:kmax, 0:1) : | real(DP), intent(out) |
subroutine RadiationDcpamEV1Flux( xy_SurfAlbedo, xyz_Press, xyr_Press, xyz_Temp, xyz_QVap, xyz_QO3, xyz_Height, xy_SurfTemp, xyr_RadSFlux, xyr_RadLFlux, xyra_DelRadLFlux ) ! USE statements ! ! dcpam 地球大気向け短波放射モデル Ver. 1 ! dcpam short wave radiation model for the Earth's atmosphere Ver. 1 ! use radiation_dcpam_E_SW_V1, only: RadiationDcpamESWV1Flux ! Roewe and Liou (1978) による長波放射モデル ! Long radiation model described by Roewe and Liou (1978) ! use radiation_RL78, only: RadiationRL78Flux real(DP), intent(in ) :: xy_SurfAlbedo( 0:imax-1, 1:jmax ) real(DP), intent(in ) :: xyz_Press ( 0:imax-1, 1:jmax, 1:kmax ) real(DP), intent(in ) :: xyr_Press ( 0:imax-1, 1:jmax, 0:kmax ) real(DP), intent(in ) :: xyz_Temp ( 0:imax-1, 1:jmax, 1:kmax ) real(DP), intent(in ) :: xyz_QVap ( 0:imax-1, 1:jmax, 1:kmax ) ! $ q $ . 混合比. Mass mixing ratio of constituents (1) real(DP), intent(in ) :: xyz_QO3 ( 0:imax-1, 1:jmax, 1:kmax ) ! O3 分布 (1) ! O3 distribution (1) real(DP), intent(in ) :: xyz_Height ( 0:imax-1, 1:jmax, 1:kmax ) real(DP), intent(in ) :: xy_SurfTemp (0:imax-1, 1:jmax) real(DP), intent(out) :: xyr_RadSFlux ( 0:imax-1, 1:jmax, 0:kmax ) real(DP), intent(out) :: xyr_RadLFlux (0:imax-1, 1:jmax, 0:kmax) real(DP), intent(out) :: xyra_DelRadLFlux(0:imax-1, 1:jmax, 0:kmax, 0:1) ! 初期化 ! Initialization ! if ( .not. radiation_dcpam_E_V1_inited ) call RadiationDcpamEV1Init ! dcpam 地球大気向け短波放射モデル Ver. 1 ! dcpam short wave radiation model for the Earth's atmosphere Ver. 1 ! call RadiationDcpamESWV1Flux( xy_SurfAlbedo, xyz_Press, xyr_Press, xyz_Temp, xyz_QVap, xyz_QO3, xyz_Height, xyr_RadSFlux ) ! Roewe and Liou (1978) による長波放射モデル ! Long radiation model described by Roewe and Liou (1978) ! call RadiationRL78Flux( xyz_Temp, xyz_QVap, xyz_QO3, xyr_Press, xyz_Press, xy_SurfTemp, xyr_RadLFlux, xyra_DelRadLFlux ) end subroutine RadiationDcpamEV1Flux
Variable : | |||
radiation_dcpam_E_V1_inited = .false. : | logical, save, public
|
Subroutine : |
subroutine RadiationDcpamEV1Init ! ファイル入出力補助 ! File I/O support ! use dc_iounit, only: FileOpen ! NAMELIST ファイル入力に関するユーティリティ ! Utilities for NAMELIST file input ! use namelist_util, only: namelist_filename, NmlutilMsg, NmlutilAryValid ! メッセージ出力 ! Message output ! use dc_message, only: MessageNotify ! 宣言文 ; Declaration statements ! integer:: unit_nml ! NAMELIST ファイルオープン用装置番号. ! Unit number for NAMELIST file open integer:: iostat_nml ! NAMELIST 読み込み時の IOSTAT. ! IOSTAT of NAMELIST read !!$ ! NAMELIST 変数群 !!$ ! NAMELIST group name !!$ ! !!$ namelist /radiation_dcpam_SWEV1_nml/ & !!$ & FactorCondToCloud !!$ ! !!$ ! デフォルト値については初期化手続 "radiation_dcpam_SWEV1#RadiationDcpamSWEV1Init" !!$ ! のソースコードを参照のこと. !!$ ! !!$ ! Refer to source codes in the initialization procedure !!$ ! "radiation_dcpam_SWEV1#RadiationDcpamSWEV1Init" for the default values. !!$ ! !!$ !!$ !!$ ! デフォルト値の設定 !!$ ! Default values settings !!$ ! !!$ !!$ !!$ !!$ ! NAMELIST の読み込み !!$ ! NAMELIST is input !!$ ! !!$ if ( trim(namelist_filename) /= '' ) then !!$ call FileOpen( unit_nml, & ! (out) !!$ & namelist_filename, mode = 'r' ) ! (in) !!$ !!$ rewind( unit_nml ) !!$ read( unit_nml, & ! (in) !!$ & nml = radiation_dcpam_SWEV1_nml, & ! (out) !!$ & iostat = iostat_nml ) ! (out) !!$ close( unit_nml ) !!$ !!$ call NmlutilMsg( iostat_nml, module_name ) ! (in) !!$ end if ! 印字 ; Print ! !!$ call MessageNotify( 'M', module_name, '----- Initialization Messages -----' ) !!$ call MessageNotify( 'M', module_name, 'FactorCondToCloud = %f', d = (/ FactorCondToCloud /) ) !!$ call MessageNotify( 'M', module_name, '-- version = %c', c1 = trim(version) ) radiation_dcpam_E_V1_inited = .true. end subroutine RadiationDcpamEV1Init
Constant : | |||
module_name = ‘radiation_dcpam_E_V1‘ : | character(*), parameter
|
Constant : | |||
version = ’$Name: dcpam5-20100224 $’ // ’$Id: radiation_dcpam_E_V1.f90,v 1.1 2010-01-11 01:28:11 yot Exp $’ : | character(*), parameter
|