耐波性常数
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=rk), | public, | parameter | :: | pi | = | acos(-1.0_rk) | |
real(kind=rk), | public, | parameter | :: | pi2 | = | 2.0_rk*pi | |
real(kind=rk), | public, | parameter | :: | g | = | 9.80665_rk | |
real(kind=rk), | public, | parameter | :: | rho_water(2) | = | [1000.0_rk, 1025.0_rk] | |
real(kind=rk), | public, | parameter | :: | rho_air | = | 1.205_rk | |
real(kind=rk), | public, | parameter | :: | p_atm | = | 101325.0_rk | |
real(kind=rk), | public, | parameter | :: | kn2ms | = | 1852.0_rk/3600.0_rk | |
real(kind=rk), | public, | parameter | :: | ms2kn | = | 3600.0_rk/1852.0_rk |