!--------------------------------------------------------------------- ! Copyright (C) GFD Dennou Club, 2004. All rights reserved. !--------------------------------------------------------------------- !=begin != Module CloudSet ! ! * Developer: SUGIYAMA Ko-ichiro ! * Version: $Id: physset.f90,v 1.2.2.3 2005/11/14 00:42:58 kitamo Exp $ ! * Tag Name: $Name: arare3m-20051114 $ ! * Change History: ! !== Overview ! !雲物理に関係する定数設定用モジュール ! !== Error Handling ! !== Known Bugs ! !== Note ! !== Future Plans ! !=end module cloudset implicit none save !=begin !== Public Interface real(8) :: DensIce ! 固相の密度 [kg/m^3] real(8) :: NumAerosol ! エアロゾルの数密度 [1/kg] real(8) :: RadiAerosol ! エアロゾルの数密度 [1/kg] real(8) :: Kd ! 大気の熱伝導係数 [W/K m] real(8) :: SatPressA ! 飽和蒸気圧の式の係数 [Pa] real(8) :: SatPressB ! 飽和蒸気圧の式の係数 [K] real(8) :: SupSatRatioCr ! 臨界過飽和度 [] !=end contains !=begin !== Procedure Interface ! !=== Initialize module and acquire NAMELIST ! !NAMELIST から物理定数を読み込む ! subroutine cloudset_init(cfgfile) !=== Dependency use dc_trace, only: BeginSub, EndSub !=end character(*), intent(in) :: cfgfile !=begin !=== NAMELIST NAMELIST /cloudset/ DensIce, NumAerosol, RadiAerosol, Kd, & & SatPressA, SatPressB, SupSatRatioCr !=end call BeginSub("cloudset_init", & & fmt="%c", & & c1="Initialize parameters of cloud physics. ") open (10, FILE=cfgfile) read(10, NML=cloudset) close(10) !==== 確認 write(*,*) "DensIce", DensIce write(*,*) "NumAerosol", NumAerosol write(*,*) "RadiAerosol", RadiAerosol write(*,*) "Kd", Kd write(*,*) "SatPressA", SatPressA write(*,*) "SatPressB", SatPressB call EndSub("cloudset_init") end subroutine cloudset_init end module cloudset