!STARTOFREGISTRYGENERATEDINCLUDE 'inc/nest_forcedown_interp.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
IF ( SIZE( grid%u_2, 1 ) * SIZE( grid%u_2, 2 ) .GT. 1 ) THEN
CALL bdy_interp
( &
grid%u_2, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
ngrid%u_2, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_xstag, & ! stencil half width
.TRUE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,dummy_xs ,ngrid%u_bxs &
,dummy_xe ,ngrid%u_bxe &
,dummy_ys ,ngrid%u_bys &
,dummy_ye ,ngrid%u_bye &
,dummy_xs ,ngrid%u_btxs &
,dummy_xe ,ngrid%u_btxe &
,dummy_ys ,ngrid%u_btys &
,dummy_ye ,ngrid%u_btye &
,grid%dt,ngrid%dt&
)
ENDIF
IF ( SIZE( grid%v_2, 1 ) * SIZE( grid%v_2, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
grid%v_2, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
ngrid%v_2, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,dummy_xs ,ngrid%v_bxs &
,dummy_xe ,ngrid%v_bxe &
,dummy_ys ,ngrid%v_bys &
,dummy_ye ,ngrid%v_bye &
,dummy_xs ,ngrid%v_btxs &
,dummy_xe ,ngrid%v_btxe &
,dummy_ys ,ngrid%v_btys &
,dummy_ye ,ngrid%v_btye &
,grid%dt,ngrid%dt&
)
ENDIF
IF ( SIZE( grid%w_2, 1 ) * SIZE( grid%w_2, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
grid%w_2, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
ngrid%w_2, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,dummy_xs ,ngrid%w_bxs &
,dummy_xe ,ngrid%w_bxe &
,dummy_ys ,ngrid%w_bys &
,dummy_ye ,ngrid%w_bye &
,dummy_xs ,ngrid%w_btxs &
,dummy_xe ,ngrid%w_btxe &
,dummy_ys ,ngrid%w_btys &
,dummy_ye ,ngrid%w_btye &
,grid%dt,ngrid%dt&
)
ENDIF
IF ( SIZE( grid%ph_2, 1 ) * SIZE( grid%ph_2, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
grid%ph_2, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
ngrid%ph_2, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,dummy_xs ,ngrid%ph_bxs &
,dummy_xe ,ngrid%ph_bxe &
,dummy_ys ,ngrid%ph_bys &
,dummy_ye ,ngrid%ph_bye &
,dummy_xs ,ngrid%ph_btxs &
,dummy_xe ,ngrid%ph_btxe &
,dummy_ys ,ngrid%ph_btys &
,dummy_ye ,ngrid%ph_btye &
,grid%dt,ngrid%dt&
)
ENDIF
IF ( SIZE( grid%t_2, 1 ) * SIZE( grid%t_2, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
grid%t_2, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
ngrid%t_2, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,dummy_xs ,ngrid%t_bxs &
,dummy_xe ,ngrid%t_bxe &
,dummy_ys ,ngrid%t_bys &
,dummy_ye ,ngrid%t_bye &
,dummy_xs ,ngrid%t_btxs &
,dummy_xe ,ngrid%t_btxe &
,dummy_ys ,ngrid%t_btys &
,dummy_ye ,ngrid%t_btye &
,grid%dt,ngrid%dt&
)
ENDIF
IF ( SIZE( grid%mu_2, 1 ) * SIZE( grid%mu_2, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
grid%mu_2, & ! CD field
cids, cide, 1, 1, cjds, cjde, & ! CD dims
cims, cime, 1, 1, cjms, cjme, & ! CD dims
cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
ngrid%mu_2, & ! ND field
nids, nide, 1, 1, njds, njde, & ! ND dims
nims, nime, 1, 1, njms, njme, & ! ND dims
nips, nipe, 1, 1, njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,dummy_xs ,ngrid%mu_bxs &
,dummy_xe ,ngrid%mu_bxe &
,dummy_ys ,ngrid%mu_bys &
,dummy_ye ,ngrid%mu_bye &
,dummy_xs ,ngrid%mu_btxs &
,dummy_xe ,ngrid%mu_btxe &
,dummy_ys ,ngrid%mu_btys &
,dummy_ye ,ngrid%mu_btye &
,grid%dt,ngrid%dt&
)
ENDIF
DO itrace = PARAM_FIRST_SCALAR, num_moist
IF ( SIZE( moist, 1 ) * SIZE( moist, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,moist_bxs(cjms,1,1,itrace) ,ngrid%moist_bxs(njms,1,1,itrace) &
,moist_bxe(cjms,1,1,itrace) ,ngrid%moist_bxe(njms,1,1,itrace) &
,moist_bys(cims,1,1,itrace) ,ngrid%moist_bys(nims,1,1,itrace) &
,moist_bye(cims,1,1,itrace) ,ngrid%moist_bye(nims,1,1,itrace) &
,moist_btxs(cjms,1,1,itrace) ,ngrid%moist_btxs(njms,1,1,itrace) &
,moist_btxe(cjms,1,1,itrace) ,ngrid%moist_btxe(njms,1,1,itrace) &
,moist_btys(cims,1,1,itrace) ,ngrid%moist_btys(nims,1,1,itrace) &
,moist_btye(cims,1,1,itrace) ,ngrid%moist_btye(nims,1,1,itrace) &
,grid%dt,ngrid%dt&
)
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_scalar
IF ( SIZE( scalar, 1 ) * SIZE( scalar, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,scalar_bxs(cjms,1,1,itrace) ,ngrid%scalar_bxs(njms,1,1,itrace) &
,scalar_bxe(cjms,1,1,itrace) ,ngrid%scalar_bxe(njms,1,1,itrace) &
,scalar_bys(cims,1,1,itrace) ,ngrid%scalar_bys(nims,1,1,itrace) &
,scalar_bye(cims,1,1,itrace) ,ngrid%scalar_bye(nims,1,1,itrace) &
,scalar_btxs(cjms,1,1,itrace) ,ngrid%scalar_btxs(njms,1,1,itrace) &
,scalar_btxe(cjms,1,1,itrace) ,ngrid%scalar_btxe(njms,1,1,itrace) &
,scalar_btys(cims,1,1,itrace) ,ngrid%scalar_btys(nims,1,1,itrace) &
,scalar_btye(cims,1,1,itrace) ,ngrid%scalar_btye(nims,1,1,itrace) &
,grid%dt,ngrid%dt&
)
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_tracer
IF ( SIZE( tracer, 1 ) * SIZE( tracer, 3 ) .GT. 1 ) THEN
CALL bdy_interp ( &
tracer(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
ngrid%tracer(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
,tracer_bxs(cjms,1,1,itrace) ,ngrid%tracer_bxs(njms,1,1,itrace) &
,tracer_bxe(cjms,1,1,itrace) ,ngrid%tracer_bxe(njms,1,1,itrace) &
,tracer_bys(cims,1,1,itrace) ,ngrid%tracer_bys(nims,1,1,itrace) &
,tracer_bye(cims,1,1,itrace) ,ngrid%tracer_bye(nims,1,1,itrace) &
,tracer_btxs(cjms,1,1,itrace) ,ngrid%tracer_btxs(njms,1,1,itrace) &
,tracer_btxe(cjms,1,1,itrace) ,ngrid%tracer_btxe(njms,1,1,itrace) &
,tracer_btys(cims,1,1,itrace) ,ngrid%tracer_btys(nims,1,1,itrace) &
,tracer_btye(cims,1,1,itrace) ,ngrid%tracer_btye(nims,1,1,itrace) &
,grid%dt,ngrid%dt&
)
ENDIF
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE