Class physics_mod
In: src/shared/physics/physics.f90
src/shared/physics/physics_2004-12-25.f90

Methods

physics_init   physics_init  

Included Modules

type_mod dc_trace type_mod dc_trace

Public Instance methods

physics_init()

[Source]


  subroutine physics_init

    implicit none

    !----------------------------------------------------------------
    !   出力ファイル設定  (gtool4 netCDF データ用)
    !----------------------------------------------------------------
    namelist /physics_nml/  R0            ,  Omega         ,  Grav          ,  Cp            ,  RAir          ,  EL            ,  CpVap         ,  RVap          ,  DH2O          ,  EpsV          ,  ES0           ,  StB           ,  FKarm         ,  EpsVT         ,  Nu            ,  TempAve       ,  TimeFilter    ,  ViscosOrder       ! 超粘性の次数

    !----- 作業用内部変数 -----
    character(len = *),  parameter:: subname = "physics_init"

  continue

    !----------------------------------------------------------------
    !   初期化確認
    !----------------------------------------------------------------
    call BeginSub(subname)
    if (physics_initialized) then
       call EndSub( subname, '%c is already called', c1=trim(subname) )
       return
    else
       physics_initialized = .true.
    endif

    !----------------------------------------------------------------
    !   NAMELIST 読み込み
    !----------------------------------------------------------------
    read(5,nml=physics_nml)   
 write(6,nml=physics_nml)

    call EndSub(subname)
  end subroutine physics_init
physics_init()

[Source]


  subroutine physics_init

    implicit none

    !----------------------------------------------------------------
    !   出力ファイル設定  (gtool4 netCDF データ用)
    !----------------------------------------------------------------
    namelist /physics_nml/  R0            ,  Omega         ,  Grav          ,  Cp            ,  RAir          ,  EL            ,  CpVap         ,  RVap          ,  DH2O          ,  EpsV          ,  ES0           ,  StB           ,  FKarm         ,  EpsVT         ,  Nu            ,  TempAve       ,  TimeFilter    ,  ViscosOrder       ! 超粘性の次数

    !----- 作業用内部変数 -----
    character(len = *),  parameter:: subname = "physics_init"

  continue

    !----------------------------------------------------------------
    !   初期化確認
    !----------------------------------------------------------------
    call BeginSub(subname)
    if (physics_initialized) then
       call EndSub( subname, '%c is already called', c1=trim(subname) )
       return
    else
       physics_initialized = .true.
    endif

    !----------------------------------------------------------------
    !   NAMELIST 読み込み
    !----------------------------------------------------------------
    read(5,nml=physics_nml)   
 write(6,nml=physics_nml)

    call EndSub(subname)
  end subroutine physics_init

[Validate]