Class | MoistBuoyancy |
In: |
moist/moistbuoyancy.f90
|
Copyright (C) GFD Dennou Club, 2006. All rights reserved.
* Developer: SUGIYAMA Ko-ichiro * Version: $Id: moistbuoyancy.f90,v 1.1.1.1 2006/04/25 03:43:58 deepconv Exp $ * Tag Name: $Name: $ * Change History:
subroutine MoistBuoy_Init ( ) !暗黙の型宣言禁止 implicit none !変数定義 integer :: s integer :: n1 !----------------------------------------------------------- ! 混合距離 !----------------------------------------------------------- MixLen = sqrt(DelX * DelZ) !----------------------------------------------------------- ! 雲粒と気体の ID の組を作る !----------------------------------------------------------- !化学種の中から雲粒を作るものを選び, その配列添え字と分子量を保管. LoopNum = 0 SelectCloud: do s = 1, SpcNum ! !'Cloud' という文字列が含まれるものの個数を数える ! n1 = index(SpcWetSymbol(s), '-Cloud' ) ! if (n1 /= 0) then ! LoopNum = LoopNum + 1 ! CloudNum(LoopNum)= s ! GasNum(LoopNum) = minloc(SpcWetID, 1, SpcWetID == ChemData_OneSpcID(SpcWetSymbol(s)(1:n1-3) // '-g')) ! end if !'-g' という文字列が含まれるものの個数を数える n1 = index(SpcWetSymbol(s), '-g' ) if (n1 /= 0) then LoopNum = LoopNum + 1 ! CloudNum(LoopNum)= s GasNum(LoopNum) = s end if end do SelectCloud !----------------------------------------------------------- ! 確認 !----------------------------------------------------------- write(*,*) "MoistAdjust_Init, LoopNum: ", LoopNum ! write(*,*) "MoistAdjust_Init, CloudNum: ", CloudNum write(*,*) "MoistAdjust_Init, GasNum: ", GasNum end subroutine