|
subroutine, public | scale_atmos_dyn_tinteg_short_rk7s6o::atmos_dyn_tinteg_short_rk7s6o_setup (tinteg_type) |
| Setup. More...
|
|
subroutine, public | scale_atmos_dyn_tinteg_short_rk7s6o::atmos_dyn_tinteg_short_rk7s6o (DENS, MOMZ, MOMX, MOMY, RHOT, PROG, mflx_hi, tflx_hi, DENS_t, MOMZ_t, MOMX_t, MOMY_t, RHOT_t, DPRES0, CVtot, CORIOLI, num_diff, wdamp_coef, divdmp_coef, DDIV, FLAG_FCT_MOMENTUM, FLAG_FCT_T, FLAG_FCT_ALONG_STREAM, CDZ, FDZ, FDX, FDY, RCDZ, RCDX, RCDY, RFDZ, RFDX, RFDY, PHI, GSQRT, J13G, J23G, J33G, MAPF, REF_pres, REF_dens, BND_W, BND_E, BND_S, BND_N, TwoD, dt) |
| RK7s6o. More...
|
|
|
real(rp), dimension(7, 7), parameter, public | scale_atmos_dyn_tinteg_short_rk7s6o::rkcoef_a_7s6o_lawson1967 = reshape( (/ 0.0_RP, 3.0_RP/19.0_RP, 9.0_RP/152.0_RP, 94474764.0_RP/318611987.0_RP, -76607525678.0_RP/925997907411.0_RP, -113193410749715476.0_RP/1376008387821185625.0_RP, 510341547912673.0_RP/1709758911034368.0_RP, 0.0_RP, 0.0_RP, 27.0_RP/152.0_RP, -310753854.0_RP/318611987.0_RP, 309768324.0_RP/200562683.0_RP, 68309142.0_RP/42280325.0_RP, -3074637.0_RP/21410624.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 375818328.0_RP/318611987.0_RP, -57882086555344.0_RP/37088653028409.0_RP, -9901869473098663108168.0_RP/5940196722617929711875.0_RP, 205532548800199165.0_RP/6225256605226855824.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 643400862141470.0_RP/704684407539771.0_RP, 8947230518934447694268.0_RP/9333225588784524496875.0_RP, 32370527990426718666299.0_RP/90521226376106372167680.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, -8377112295767292.0_RP/1089624335851065625.0_RP, 2610287999955961017.0_RP/236243323046620160.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, -2690946369187951875.0_RP/253991013039290368.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP /), shape(RKCoef_a_7s6o_Lawson1967) ) |
|
real(rp), dimension(7), parameter, public | scale_atmos_dyn_tinteg_short_rk7s6o::rkcoef_b_7s6o_lawson1967 = (/ 119490041.0_RP/1597112640.0_RP, 0.0_RP, 55710603179056.0_RP/168638187800205.0_RP, 5739605598843081731.0_RP/28834038834414422400.0_RP, 1477688286853979.0_RP/291957783566400.0_RP, -298030839900625.0_RP/62778200252544.0_RP, 5352656.0_RP/65415735.0_RP /) |
|
real(rp), dimension(7, 7), parameter, public | scale_atmos_dyn_tinteg_short_rk7s6o::rkcoef_a_7s6o_butcher1964 = reshape( (/ 0.0_RP, 1.0_RP/3.0_RP, 0.0_RP, 1.0_RP/12.0_RP, -1.0_RP/16.0_RP, 0.0_RP, 9.0_RP/44.0_RP, 0.0_RP, 0.0_RP, 2.0_RP/3.0_RP, 1.0_RP/3.0_RP, 9.0_RP/8.0_RP, 9.0_RP/8.0_RP, -9.0_RP/11.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, -1.0_RP/12.0_RP, -3.0_RP/16.0_RP, -3_RP/8.0_RP, 63.0_RP/44.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, -3.0_RP/8.0_RP, -3.0_RP/4.0_RP, 18.0_RP/11.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 1.0_RP/2.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, -16.0_RP/11.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP, 0.0_RP /), shape(RKCoef_a_7s6o_Butcher1964) ) |
|
real(rp), dimension(7), parameter, public | scale_atmos_dyn_tinteg_short_rk7s6o::rkcoef_b_7s6o_butcher1964 = 1.0_RP/120.0_RP * (/ 11.0_RP, 0.0_RP, 81.0_RP, 81.0_RP, -32.0_RP, -32.0_RP, 11.0_RP /) |
|