!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