include file: em_nest_feedbackup_interp.inc 1,12
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_feedbackup_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 copy_fcn (                                                               &         
                  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                &
                  ) 
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
ENDIF
IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
ENDIF
IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
ENDIF
IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
ENDIF
IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
ENDIF
IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
CALL copy_fcn (                                                               &         
                  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                &
                  ) 
ENDIF
!ENDOFREGISTRYGENERATEDINCLUDE