[2759] | 1 | module module_gfs_physcons |
---|
| 2 | use module_gfs_machine,only:kind_phys |
---|
| 3 | ! Physical constants as set in NMC handbook from Smithsonian tables. |
---|
| 4 | ! Physical constants are given to 5 places. |
---|
| 5 | ! 1990/04/30: g and rd are made consistent with NWS usage. |
---|
| 6 | ! 2001/10/22: g made consistent with SI usage. |
---|
| 7 | ! Math constants |
---|
| 8 | real(kind=kind_phys),parameter:: con_pi =3.1415926535897931 ! pi |
---|
| 9 | real(kind=kind_phys),parameter:: con_sqrt2 =1.414214e+0 ! square root of 2 |
---|
| 10 | real(kind=kind_phys),parameter:: con_sqrt3 =1.732051e+0 ! square root of 3 |
---|
| 11 | ! Primary constants |
---|
| 12 | real(kind=kind_phys),parameter:: con_rerth =6.3712e+6 ! radius of earth (m) |
---|
| 13 | real(kind=kind_phys),parameter:: con_g =9.80665e+0! gravity (m/s2) |
---|
| 14 | real(kind=kind_phys),parameter:: con_omega =7.2921e-5 ! ang vel of earth (1/s) |
---|
| 15 | real(kind=kind_phys),parameter:: con_rd =2.8705e+2 ! gas constant air (J/kg/K) |
---|
| 16 | real(kind=kind_phys),parameter:: con_rv =4.6150e+2 ! gas constant H2O (J/kg/K) |
---|
| 17 | real(kind=kind_phys),parameter:: con_cp =1.0046e+3 ! spec heat air @p (J/kg/K) |
---|
| 18 | real(kind=kind_phys),parameter:: con_cv =7.1760e+2 ! spec heat air @v (J/kg/K) |
---|
| 19 | real(kind=kind_phys),parameter:: con_cvap =1.8460e+3 ! spec heat H2O gas (J/kg/K) |
---|
| 20 | real(kind=kind_phys),parameter:: con_cliq =4.1855e+3 ! spec heat H2O liq (J/kg/K) |
---|
| 21 | real(kind=kind_phys),parameter:: con_csol =2.1060e+3 ! spec heat H2O ice (J/kg/K) |
---|
| 22 | real(kind=kind_phys),parameter:: con_hvap =2.5000e+6 ! lat heat H2O cond (J/kg) |
---|
| 23 | real(kind=kind_phys),parameter:: con_hfus =3.3358e+5 ! lat heat H2O fusion (J/kg) |
---|
| 24 | real(kind=kind_phys),parameter:: con_psat =6.1078e+2 ! pres at H2O 3pt (Pa) |
---|
| 25 | real(kind=kind_phys),parameter:: con_sbc =5.6730e-8 ! stefan-boltzmann (W/m2/K4) |
---|
| 26 | real(kind=kind_phys),parameter:: con_solr =1.3533e+3 ! solar constant (W/m2) |
---|
| 27 | real(kind=kind_phys),parameter:: con_t0c =2.7315e+2 ! temp at 0C (K) |
---|
| 28 | real(kind=kind_phys),parameter:: con_ttp =2.7316e+2 ! temp at H2O 3pt (K) |
---|
| 29 | real(kind=kind_phys),parameter:: con_jcal =4.1855E+0 ! JOULES PER CALORIE () |
---|
| 30 | ! Secondary constants |
---|
| 31 | real(kind=kind_phys),parameter:: con_rocp =con_rd/con_cp |
---|
| 32 | real(kind=kind_phys),parameter:: con_cpor =con_cp/con_rd |
---|
| 33 | real(kind=kind_phys),parameter:: con_rog =con_rd/con_g |
---|
| 34 | real(kind=kind_phys),parameter:: con_fvirt =con_rv/con_rd-1. |
---|
| 35 | real(kind=kind_phys),parameter:: con_eps =con_rd/con_rv |
---|
| 36 | real(kind=kind_phys),parameter:: con_epsm1 =con_rd/con_rv-1. |
---|
| 37 | real(kind=kind_phys),parameter:: con_dldt =con_cvap-con_cliq |
---|
| 38 | real(kind=kind_phys),parameter:: con_xpona =-con_dldt/con_rv |
---|
| 39 | real(kind=kind_phys),parameter:: con_xponb =-con_dldt/con_rv+con_hvap/(con_rv*con_ttp) |
---|
| 40 | end module module_gfs_physcons |
---|