include file: em_nest_forcedown_interp.inc 1,12
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_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.
!
CALL bdy_interp (                                                               &         
                  u_2,                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%em_u_2,                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .TRUE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,u_b,ngrid%em_u_b  &
,u_bt,ngrid%em_u_bt  &
                  ) 
CALL bdy_interp (                                                               &         
                  v_2,                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%em_v_2,                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .TRUE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,v_b,ngrid%em_v_b  &
,v_bt,ngrid%em_v_bt  &
                  ) 
CALL bdy_interp (                                                               &         
                  w_2,                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%em_w_2,                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,w_b,ngrid%em_w_b  &
,w_bt,ngrid%em_w_bt  &
                  ) 
CALL bdy_interp (                                                               &         
                  ph_2,                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%em_ph_2,                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,ph_b,ngrid%em_ph_b  &
,ph_bt,ngrid%em_ph_bt  &
                  ) 
CALL bdy_interp (                                                               &         
                  t_2,                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%em_t_2,                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,t_b,ngrid%em_t_b  &
,t_bt,ngrid%em_t_bt  &
                  ) 
CALL bdy_interp (                                                               &         
                  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%em_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
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,mu_b,ngrid%em_mu_b  &
,mu_bt,ngrid%em_mu_bt  &
                  ) 
IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
CALL bdy_interp (                                                               &         
                  moist_2(grid%sm31,grid%sm32,grid%sm33,P_qv),                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%moist_2(ngrid%sm31,ngrid%sm32,ngrid%sm33,P_qv),                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,rqv_b,ngrid%em_rqv_b  &
,rqv_bt,ngrid%em_rqv_bt  &
                  ) 
ENDIF
IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
CALL bdy_interp (                                                               &         
                  moist_2(grid%sm31,grid%sm32,grid%sm33,P_qc),                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%moist_2(ngrid%sm31,ngrid%sm32,ngrid%sm33,P_qc),                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,rqc_b,ngrid%rqc_b  &
,rqc_bt,ngrid%rqc_bt  &
                  ) 
ENDIF
IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
CALL bdy_interp (                                                               &         
                  moist_2(grid%sm31,grid%sm32,grid%sm33,P_qr),                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%moist_2(ngrid%sm31,ngrid%sm32,ngrid%sm33,P_qr),                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,rqr_b,ngrid%rqr_b  &
,rqr_bt,ngrid%rqr_bt  &
                  ) 
ENDIF
IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
CALL bdy_interp (                                                               &         
                  moist_2(grid%sm31,grid%sm32,grid%sm33,P_qi),                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%moist_2(ngrid%sm31,ngrid%sm32,ngrid%sm33,P_qi),                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,rqi_b,ngrid%rqi_b  &
,rqi_bt,ngrid%rqi_bt  &
                  ) 
ENDIF
IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
CALL bdy_interp (                                                               &         
                  moist_2(grid%sm31,grid%sm32,grid%sm33,P_qs),                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%moist_2(ngrid%sm31,ngrid%sm32,ngrid%sm33,P_qs),                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,rqs_b,ngrid%rqs_b  &
,rqs_bt,ngrid%rqs_bt  &
                  ) 
ENDIF
IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
CALL bdy_interp (                                                               &         
                  moist_2(grid%sm31,grid%sm32,grid%sm33,P_qg),                                                           &         ! CD field
                 cids, cide, ckds, ckde, cjds, cjde,   &         ! CD dims
                 cims, cime, ckms, ckme, cjms, cjme,   &         ! CD dims
                 cips, cipe, ckps, ckpe, cjps, cjpe,   &         ! CD dims
                  ngrid%moist_2(ngrid%sm31,ngrid%sm32,ngrid%sm33,P_qg),                                                        &   ! ND field
                 nids, nide, nkds, nkde, njds, njde,   &         ! ND dims
                 nims, nime, nkms, nkme, njms, njme,   &         ! ND dims
                 nips, nipe, nkps, nkpe, njps, njpe,   &         ! ND dims
                  shw, ngrid%imask,         &         ! stencil half width
                  .FALSE., .FALSE.,                                                &         ! xstag, ystag
                  ngrid%i_parent_start, ngrid%j_parent_start,                     &
                  ngrid%parent_grid_ratio, ngrid%parent_grid_ratio                &
,dt,ngrid%dt  &
,rqg_b,ngrid%rqg_b  &
,rqg_bt,ngrid%rqg_bt  &
                  ) 
ENDIF
!ENDOFREGISTRYGENERATEDINCLUDE