include file: nest_forcedown_interp.inc 2,11
!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, 3 ) .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 &
,u_bxs,ngrid%u_bxs &
,u_bxe,ngrid%u_bxe &
,u_bys,ngrid%u_bys &
,u_bye,ngrid%u_bye &
,u_btxs,ngrid%u_btxs &
,u_btxe,ngrid%u_btxe &
,u_btys,ngrid%u_btys &
,u_btye,ngrid%u_btye &
,grid%dt,ngrid%dt &
)
ENDIF
IF ( SIZE( grid%v_2, 1 ) * SIZE( grid%v_2, 3 ) .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 &
,v_bxs,ngrid%v_bxs &
,v_bxe,ngrid%v_bxe &
,v_bys,ngrid%v_bys &
,v_bye,ngrid%v_bye &
,v_btxs,ngrid%v_btxs &
,v_btxe,ngrid%v_btxe &
,v_btys,ngrid%v_btys &
,v_btye,ngrid%v_btye &
,grid%dt,ngrid%dt &
)
ENDIF
IF ( SIZE( grid%w_2, 1 ) * SIZE( grid%w_2, 3 ) .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 &
,w_bxs,ngrid%w_bxs &
,w_bxe,ngrid%w_bxe &
,w_bys,ngrid%w_bys &
,w_bye,ngrid%w_bye &
,w_btxs,ngrid%w_btxs &
,w_btxe,ngrid%w_btxe &
,w_btys,ngrid%w_btys &
,w_btye,ngrid%w_btye &
,grid%dt,ngrid%dt &
)
ENDIF
IF ( SIZE( grid%ph_2, 1 ) * SIZE( grid%ph_2, 3 ) .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 &
,ph_bxs,ngrid%ph_bxs &
,ph_bxe,ngrid%ph_bxe &
,ph_bys,ngrid%ph_bys &
,ph_bye,ngrid%ph_bye &
,ph_btxs,ngrid%ph_btxs &
,ph_btxe,ngrid%ph_btxe &
,ph_btys,ngrid%ph_btys &
,ph_btye,ngrid%ph_btye &
,grid%dt,ngrid%dt &
)
ENDIF
IF ( SIZE( grid%t_2, 1 ) * SIZE( grid%t_2, 3 ) .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 &
,t_bxs,ngrid%t_bxs &
,t_bxe,ngrid%t_bxe &
,t_bys,ngrid%t_bys &
,t_bye,ngrid%t_bye &
,t_btxs,ngrid%t_btxs &
,t_btxe,ngrid%t_btxe &
,t_btys,ngrid%t_btys &
,t_btye,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 &
,mu_bxs,ngrid%mu_bxs &
,mu_bxe,ngrid%mu_bxe &
,mu_bys,ngrid%mu_bys &
,mu_bye,ngrid%mu_bye &
,mu_btxs,ngrid%mu_btxs &
,mu_btxe,ngrid%mu_btxe &
,mu_btys,ngrid%mu_btys &
,mu_btye,ngrid%mu_btye &
,grid%dt,ngrid%dt &
)
ENDIF
DO itrace = PARAM_FIRST_SCALAR, num_moist
IF ( SIZE( moist, 1 ) * SIZE( moist, 3 ) .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_dfi_moist
IF ( SIZE( dfi_moist, 1 ) * SIZE( dfi_moist, 3 ) .GT. 1 ) THEN
CALL bdy_interp ( &
dfi_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%dfi_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 &
,dfi_moist_bxs(cjms,1,1,itrace),ngrid%dfi_moist_bxs(njms,1,1,itrace) &
,dfi_moist_bxe(cjms,1,1,itrace),ngrid%dfi_moist_bxe(njms,1,1,itrace) &
,dfi_moist_bys(cims,1,1,itrace),ngrid%dfi_moist_bys(nims,1,1,itrace) &
,dfi_moist_bye(cims,1,1,itrace),ngrid%dfi_moist_bye(nims,1,1,itrace) &
,dfi_moist_btxs(cjms,1,1,itrace),ngrid%dfi_moist_btxs(njms,1,1,itrace) &
,dfi_moist_btxe(cjms,1,1,itrace),ngrid%dfi_moist_btxe(njms,1,1,itrace) &
,dfi_moist_btys(cims,1,1,itrace),ngrid%dfi_moist_btys(nims,1,1,itrace) &
,dfi_moist_btye(cims,1,1,itrace),ngrid%dfi_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, 3 ) .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_dfi_scalar
IF ( SIZE( dfi_scalar, 1 ) * SIZE( dfi_scalar, 3 ) .GT. 1 ) THEN
CALL bdy_interp ( &
dfi_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%dfi_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 &
,dfi_scalar_bxs(cjms,1,1,itrace),ngrid%dfi_scalar_bxs(njms,1,1,itrace) &
,dfi_scalar_bxe(cjms,1,1,itrace),ngrid%dfi_scalar_bxe(njms,1,1,itrace) &
,dfi_scalar_bys(cims,1,1,itrace),ngrid%dfi_scalar_bys(nims,1,1,itrace) &
,dfi_scalar_bye(cims,1,1,itrace),ngrid%dfi_scalar_bye(nims,1,1,itrace) &
,dfi_scalar_btxs(cjms,1,1,itrace),ngrid%dfi_scalar_btxs(njms,1,1,itrace) &
,dfi_scalar_btxe(cjms,1,1,itrace),ngrid%dfi_scalar_btxe(njms,1,1,itrace) &
,dfi_scalar_btys(cims,1,1,itrace),ngrid%dfi_scalar_btys(nims,1,1,itrace) &
,dfi_scalar_btye(cims,1,1,itrace),ngrid%dfi_scalar_btye(nims,1,1,itrace) &
,grid%dt,ngrid%dt &
)
ENDIF
ENDDO
IF ( SIZE( grid%ht_shad, 1 ) * SIZE( grid%ht_shad, 2 ) .GT. 1 ) THEN
CALL bdy_interp ( &
grid%ht_shad, & ! 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%ht_shad, & ! 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 &
,ht_shad_bxs,ngrid%ht_shad_bxs &
,ht_shad_bxe,ngrid%ht_shad_bxe &
,ht_shad_bys,ngrid%ht_shad_bys &
,ht_shad_bye,ngrid%ht_shad_bye &
,ht_shad_btxs,ngrid%ht_shad_btxs &
,ht_shad_btxe,ngrid%ht_shad_btxe &
,ht_shad_btys,ngrid%ht_shad_btys &
,ht_shad_btye,ngrid%ht_shad_btye &
,grid%dt,ngrid%dt &
)
ENDIF
!ENDOFREGISTRYGENERATEDINCLUDE