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