Class | physics_mod |
In: |
src/shared/physics/physics.f90
src/shared/physics/physics_2004-12-25.f90 |
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
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