|
| subroutine | dcmip_initial_conditions_test_4::test4_baroclinic_wave (moist, X, lon, lat, p, z, zcoords, u, v, w, t, phis, ps, rho, q, q1, q2) |
| |
| real(8) function | dcmip_initial_conditions_test_4::temperature (lon, lat, eta) |
| |
| real(8) function | dcmip_initial_conditions_test_4::t_mean (eta) |
| |
| real(8) function | dcmip_initial_conditions_test_4::t_deviation (lon, lat, eta) |
| |
| real(8) function | dcmip_initial_conditions_test_4::surface_geopotential (lon, lat) |
| |
| real(8) function | dcmip_initial_conditions_test_4::geopotential (lon, lat, eta) |
| |
| real(8) function | dcmip_initial_conditions_test_4::horiz_mean_geopotential (eta) |
| |
| real(8) function | dcmip_initial_conditions_test_4::u_wind (lon, lat, eta, lperturb) |
| |
| real(8) function | dcmip_initial_conditions_test_4::v_wind (lon, lat, eta, lperturb) |
| |
| real(8) function | dcmip_initial_conditions_test_4::eta_from_z (lon, lat, z) |
| |
| real(8) function | dcmip_initial_conditions_test_4::theta (lon, lat, eta) |
| |
| real(8) function | dcmip_initial_conditions_test_4::epv (lon, lat, eta) |
| |
|
| real(8), parameter | dcmip_initial_conditions_test_4::a = 6371220.0d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::rd = 287.0d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::g = 9.80616d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::cp = 1004.5d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::pi = 4.d0*atan(1.d0) |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::kappa = 2.d0/7.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::omega = 7.29212d-5 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::p0 = 100000.0d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::deg2rad = pi/180.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::eta_tropo = 0.2d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::u0 = 35.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::t0 = 288.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::eta0 = 0.252d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::radius = 10.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::perturbation_amplitude = 1.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::perturbation_longitude = 20.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::perturbation_latitude = 40.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::eta_sfc = 1.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::delta_t = 480000.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::gamma = 0.005d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::perturbation_latitude_tracer = 55.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::a_omega = a*omega |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::exponent = Rd*gamma/g |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::q0 = 0.021d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::lat_hw = 2.d0*pi/9.d0 |
| |
| real(8), parameter | dcmip_initial_conditions_test_4::p_hw = 34000.d0 |
| |
1.8.14