Searched defs:remap_q_ppm (Results 1 – 1 of 1) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_remap_q_ppm/src/ |
| H A D | prim_advection_mod.F90 | 324 SUBROUTINE remap_q_ppm(qdp, nx, qsize, dp1, dp2) subroutine
334 INTEGER, intent(in) :: nx, qsize
335 REAL(KIND=real_kind), intent(inout) :: qdp(nx,nx,nlev,qsize)
336 REAL(KIND=real_kind), intent(in) :: dp1(nx,nx,nlev), dp2(nx,nx,nlev)
338 INTEGER, parameter :: gs = 2 !Number of cells to place in the ghost region
339 REAL(KIND=real_kind), dimension(nlev+2) :: pio !Pressure at interfaces for old grid
342 REAL(KIND=real_kind), dimension(1-gs:nlev+gs) :: ao !Tracer value on old grid
346 REAL(KIND=real_kind), dimension( nlev ) :: z1, z2
347 REAL(KIND=real_kind) :: ppmdx(10,0:nlev+1) !grid spacings
348 REAL(KIND=real_kind) :: mymass, massn1, massn2
[all …]
|