Class MoistBuoyancy
In: moist/moistbuoyancy.f90

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

Module MoistBuoyancy

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

Overview

Error Handling

Bugs

Note

Future Plans

Methods

Included Modules

gridset basicset ChemCalc ChemData average differentiate_center4

Public Instance methods

[Source]

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

[Validate]