!STARTOFREGISTRYGENERATEDINCLUDE 'inc/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.
!
IF ( SIZE( grid%lu_index, 1 ) * SIZE( grid%lu_index, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%lu_index, & ! 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%lu_index, & ! 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 &
)
ENDIF
DO itrace = PARAM_FIRST_SCALAR, num_scalar
IF ( SIZE( scalar, 1 ) * SIZE( scalar, 2 ) .GT. 1 ) THEN
CALL copy_fcn ( &
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 &
)
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_dfi_scalar
IF ( SIZE( dfi_scalar, 1 ) * SIZE( dfi_scalar, 2 ) .GT. 1 ) THEN
CALL copy_fcn ( &
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 &
)
ENDIF
ENDDO
IF ( SIZE( grid%rhosn, 1 ) * SIZE( grid%rhosn, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%rhosn, & ! 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%rhosn, & ! 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 &
)
ENDIF
IF ( SIZE( grid%isnowxy, 1 ) * SIZE( grid%isnowxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%isnowxy, & ! 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%isnowxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%tvxy, 1 ) * SIZE( grid%tvxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tvxy, & ! 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%tvxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%tgxy, 1 ) * SIZE( grid%tgxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tgxy, & ! 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%tgxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%canliqxy, 1 ) * SIZE( grid%canliqxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%canliqxy, & ! 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%canliqxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%canicexy, 1 ) * SIZE( grid%canicexy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%canicexy, & ! 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%canicexy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%eahxy, 1 ) * SIZE( grid%eahxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%eahxy, & ! 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%eahxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%tahxy, 1 ) * SIZE( grid%tahxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tahxy, & ! 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%tahxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%cmxy, 1 ) * SIZE( grid%cmxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%cmxy, & ! 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%cmxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%chxy, 1 ) * SIZE( grid%chxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%chxy, & ! 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%chxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%fwetxy, 1 ) * SIZE( grid%fwetxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%fwetxy, & ! 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%fwetxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%sneqvoxy, 1 ) * SIZE( grid%sneqvoxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%sneqvoxy, & ! 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%sneqvoxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%alboldxy, 1 ) * SIZE( grid%alboldxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%alboldxy, & ! 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%alboldxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%qsnowxy, 1 ) * SIZE( grid%qsnowxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%qsnowxy, & ! 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%qsnowxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%wslakexy, 1 ) * SIZE( grid%wslakexy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%wslakexy, & ! 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%wslakexy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%zwtxy, 1 ) * SIZE( grid%zwtxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%zwtxy, & ! 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%zwtxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%waxy, 1 ) * SIZE( grid%waxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%waxy, & ! 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%waxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%wtxy, 1 ) * SIZE( grid%wtxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%wtxy, & ! 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%wtxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%zsnsoxy, 1 ) * SIZE( grid%zsnsoxy, 3 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%zsnsoxy, & ! CD field
cids, cide, 1, config_flags%num_snso_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_snso_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_snso_layers, cjps, cjpe, & ! CD dims
ngrid%zsnsoxy, & ! ND field
nids, nide, 1, config_flags%num_snso_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_snso_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_snso_layers, 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 &
)
ENDIF
IF ( SIZE( grid%tsnoxy, 1 ) * SIZE( grid%tsnoxy, 3 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tsnoxy, & ! CD field
cids, cide, 1, config_flags%num_snow_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_snow_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_snow_layers, cjps, cjpe, & ! CD dims
ngrid%tsnoxy, & ! ND field
nids, nide, 1, config_flags%num_snow_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_snow_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_snow_layers, 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 &
)
ENDIF
IF ( SIZE( grid%snicexy, 1 ) * SIZE( grid%snicexy, 3 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%snicexy, & ! CD field
cids, cide, 1, config_flags%num_snow_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_snow_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_snow_layers, cjps, cjpe, & ! CD dims
ngrid%snicexy, & ! ND field
nids, nide, 1, config_flags%num_snow_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_snow_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_snow_layers, 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 &
)
ENDIF
IF ( SIZE( grid%snliqxy, 1 ) * SIZE( grid%snliqxy, 3 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%snliqxy, & ! CD field
cids, cide, 1, config_flags%num_snow_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_snow_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_snow_layers, cjps, cjpe, & ! CD dims
ngrid%snliqxy, & ! ND field
nids, nide, 1, config_flags%num_snow_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_snow_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_snow_layers, 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 &
)
ENDIF
IF ( SIZE( grid%lfmassxy, 1 ) * SIZE( grid%lfmassxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%lfmassxy, & ! 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%lfmassxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%rtmassxy, 1 ) * SIZE( grid%rtmassxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%rtmassxy, & ! 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%rtmassxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%stmassxy, 1 ) * SIZE( grid%stmassxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%stmassxy, & ! 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%stmassxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%woodxy, 1 ) * SIZE( grid%woodxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%woodxy, & ! 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%woodxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%stblcpxy, 1 ) * SIZE( grid%stblcpxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%stblcpxy, & ! 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%stblcpxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%fastcpxy, 1 ) * SIZE( grid%fastcpxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%fastcpxy, & ! 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%fastcpxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%xsaixy, 1 ) * SIZE( grid%xsaixy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%xsaixy, & ! 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%xsaixy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%tradxy, 1 ) * SIZE( grid%tradxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tradxy, & ! 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%tradxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%tsxy, 1 ) * SIZE( grid%tsxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tsxy, & ! 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%tsxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%neexy, 1 ) * SIZE( grid%neexy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%neexy, & ! 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%neexy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%gppxy, 1 ) * SIZE( grid%gppxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%gppxy, & ! 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%gppxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%nppxy, 1 ) * SIZE( grid%nppxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%nppxy, & ! 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%nppxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%fvegxy, 1 ) * SIZE( grid%fvegxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%fvegxy, & ! 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%fvegxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%qinxy, 1 ) * SIZE( grid%qinxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%qinxy, & ! 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%qinxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%runsfxy, 1 ) * SIZE( grid%runsfxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%runsfxy, & ! 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%runsfxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%runsbxy, 1 ) * SIZE( grid%runsbxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%runsbxy, & ! 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%runsbxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%ecanxy, 1 ) * SIZE( grid%ecanxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%ecanxy, & ! 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%ecanxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%edirxy, 1 ) * SIZE( grid%edirxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%edirxy, & ! 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%edirxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%etranxy, 1 ) * SIZE( grid%etranxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%etranxy, & ! 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%etranxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%fsaxy, 1 ) * SIZE( grid%fsaxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%fsaxy, & ! 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%fsaxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%firaxy, 1 ) * SIZE( grid%firaxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%firaxy, & ! 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%firaxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%aparxy, 1 ) * SIZE( grid%aparxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%aparxy, & ! 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%aparxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%psnxy, 1 ) * SIZE( grid%psnxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%psnxy, & ! 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%psnxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%savxy, 1 ) * SIZE( grid%savxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%savxy, & ! 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%savxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%sagxy, 1 ) * SIZE( grid%sagxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%sagxy, & ! 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%sagxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%fsnoxy, 1 ) * SIZE( grid%fsnoxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%fsnoxy, & ! 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%fsnoxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%t2mvxy, 1 ) * SIZE( grid%t2mvxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%t2mvxy, & ! 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%t2mvxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%t2mbxy, 1 ) * SIZE( grid%t2mbxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%t2mbxy, & ! 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%t2mbxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%q2mvxy, 1 ) * SIZE( grid%q2mvxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%q2mvxy, & ! 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%q2mvxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%q2mbxy, 1 ) * SIZE( grid%q2mbxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%q2mbxy, & ! 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%q2mbxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%chstarxy, 1 ) * SIZE( grid%chstarxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%chstarxy, & ! 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%chstarxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%rssunxy, 1 ) * SIZE( grid%rssunxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%rssunxy, & ! 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%rssunxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%rsshaxy, 1 ) * SIZE( grid%rsshaxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%rsshaxy, & ! 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%rsshaxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%bgapxy, 1 ) * SIZE( grid%bgapxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%bgapxy, & ! 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%bgapxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%wgapxy, 1 ) * SIZE( grid%wgapxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%wgapxy, & ! 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%wgapxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%gapxy, 1 ) * SIZE( grid%gapxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%gapxy, & ! 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%gapxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%tgvxy, 1 ) * SIZE( grid%tgvxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tgvxy, & ! 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%tgvxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%tgbxy, 1 ) * SIZE( grid%tgbxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%tgbxy, & ! 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%tgbxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%chvxy, 1 ) * SIZE( grid%chvxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%chvxy, & ! 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%chvxy, & ! 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 &
)
ENDIF
IF ( SIZE( grid%chbxy, 1 ) * SIZE( grid%chbxy, 2 ) .GT. 1 ) THEN
CALL copy_fcnm ( &
grid%chbxy, & ! 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%chbxy, & ! 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 &
)
ENDIF
!ENDOFREGISTRYGENERATEDINCLUDE