!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%lakedepth2d, 1 ) * SIZE( grid%lakedepth2d, 2 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%lakedepth2d, & ! 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%lakedepth2d, & ! 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%savedtke12d, 1 ) * SIZE( grid%savedtke12d, 2 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%savedtke12d, & ! 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%savedtke12d, & ! 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%snowdp2d, 1 ) * SIZE( grid%snowdp2d, 2 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%snowdp2d, & ! 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%snowdp2d, & ! 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%h2osno2d, 1 ) * SIZE( grid%h2osno2d, 2 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%h2osno2d, & ! 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%h2osno2d, & ! 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%snl2d, 1 ) * SIZE( grid%snl2d, 2 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%snl2d, & ! 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%snl2d, & ! 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%t_grnd2d, 1 ) * SIZE( grid%t_grnd2d, 2 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%t_grnd2d, & ! 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%t_grnd2d, & ! 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%t_lake3d, 1 ) * SIZE( grid%t_lake3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%t_lake3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%t_lake3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%lake_icefrac3d, 1 ) * SIZE( grid%lake_icefrac3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%lake_icefrac3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%lake_icefrac3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%z_lake3d, 1 ) * SIZE( grid%z_lake3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%z_lake3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%z_lake3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%dz_lake3d, 1 ) * SIZE( grid%dz_lake3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%dz_lake3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%dz_lake3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%t_soisno3d, 1 ) * SIZE( grid%t_soisno3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%t_soisno3d, & ! CD field cids, cide, 1, 15, cjds, cjde, & ! CD dims cims, cime, 1, 15, cjms, cjme, & ! CD dims cips, cipe, 1, 15, cjps, cjpe, & ! CD dims ngrid%t_soisno3d, & ! ND field nids, nide, 1, 15, njds, njde, & ! ND dims nims, nime, 1, 15, njms, njme, & ! ND dims nips, nipe, 1, 15, 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%h2osoi_ice3d, 1 ) * SIZE( grid%h2osoi_ice3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%h2osoi_ice3d, & ! CD field cids, cide, 1, 15, cjds, cjde, & ! CD dims cims, cime, 1, 15, cjms, cjme, & ! CD dims cips, cipe, 1, 15, cjps, cjpe, & ! CD dims ngrid%h2osoi_ice3d, & ! ND field nids, nide, 1, 15, njds, njde, & ! ND dims nims, nime, 1, 15, njms, njme, & ! ND dims nips, nipe, 1, 15, 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%h2osoi_liq3d, 1 ) * SIZE( grid%h2osoi_liq3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%h2osoi_liq3d, & ! CD field cids, cide, 1, 15, cjds, cjde, & ! CD dims cims, cime, 1, 15, cjms, cjme, & ! CD dims cips, cipe, 1, 15, cjps, cjpe, & ! CD dims ngrid%h2osoi_liq3d, & ! ND field nids, nide, 1, 15, njds, njde, & ! ND dims nims, nime, 1, 15, njms, njme, & ! ND dims nips, nipe, 1, 15, 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%h2osoi_vol3d, 1 ) * SIZE( grid%h2osoi_vol3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%h2osoi_vol3d, & ! CD field cids, cide, 1, 15, cjds, cjde, & ! CD dims cims, cime, 1, 15, cjms, cjme, & ! CD dims cips, cipe, 1, 15, cjps, cjpe, & ! CD dims ngrid%h2osoi_vol3d, & ! ND field nids, nide, 1, 15, njds, njde, & ! ND dims nims, nime, 1, 15, njms, njme, & ! ND dims nips, nipe, 1, 15, 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%z3d, 1 ) * SIZE( grid%z3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%z3d, & ! CD field cids, cide, 1, 15, cjds, cjde, & ! CD dims cims, cime, 1, 15, cjms, cjme, & ! CD dims cips, cipe, 1, 15, cjps, cjpe, & ! CD dims ngrid%z3d, & ! ND field nids, nide, 1, 15, njds, njde, & ! ND dims nims, nime, 1, 15, njms, njme, & ! ND dims nips, nipe, 1, 15, 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%dz3d, 1 ) * SIZE( grid%dz3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%dz3d, & ! CD field cids, cide, 1, 15, cjds, cjde, & ! CD dims cims, cime, 1, 15, cjms, cjme, & ! CD dims cips, cipe, 1, 15, cjps, cjpe, & ! CD dims ngrid%dz3d, & ! ND field nids, nide, 1, 15, njds, njde, & ! ND dims nims, nime, 1, 15, njms, njme, & ! ND dims nips, nipe, 1, 15, 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%zi3d, 1 ) * SIZE( grid%zi3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%zi3d, & ! CD field cids, cide, 1, 16, cjds, cjde, & ! CD dims cims, cime, 1, 16, cjms, cjme, & ! CD dims cips, cipe, 1, 16, cjps, cjpe, & ! CD dims ngrid%zi3d, & ! ND field nids, nide, 1, 16, njds, njde, & ! ND dims nims, nime, 1, 16, njms, njme, & ! ND dims nips, nipe, 1, 16, 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%watsat3d, 1 ) * SIZE( grid%watsat3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%watsat3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%watsat3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%csol3d, 1 ) * SIZE( grid%csol3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%csol3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%csol3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%tkmg3d, 1 ) * SIZE( grid%tkmg3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%tkmg3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%tkmg3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%tkdry3d, 1 ) * SIZE( grid%tkdry3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%tkdry3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%tkdry3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%tksatu3d, 1 ) * SIZE( grid%tksatu3d, 3 ) .GT. 1 ) THEN CALL copy_fcnm ( & grid%tksatu3d, & ! CD field cids, cide, 1, 10, cjds, cjde, & ! CD dims cims, cime, 1, 10, cjms, cjme, & ! CD dims cips, cipe, 1, 10, cjps, cjpe, & ! CD dims ngrid%tksatu3d, & ! ND field nids, nide, 1, 10, njds, njde, & ! ND dims nims, nime, 1, 10, njms, njme, & ! ND dims nips, nipe, 1, 10, 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%lu_index, 1 ) * SIZE( grid%lu_index, 2 ) .GT. 1 ) THEN CALL upnear ( & 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 IF ( SIZE( grid%cuprecip_swath, 1 ) * SIZE( grid%cuprecip_swath, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%cuprecip_swath, & ! 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%cuprecip_swath, & ! 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%precip_swath, 1 ) * SIZE( grid%precip_swath, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%precip_swath, & ! 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%precip_swath, & ! 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%windsq_swath, 1 ) * SIZE( grid%windsq_swath, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%windsq_swath, & ! 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%windsq_swath, & ! 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%suswind, 1 ) * SIZE( grid%suswind, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%suswind, & ! 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%suswind, & ! 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%suswind_swath, 1 ) * SIZE( grid%suswind_swath, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%suswind_swath, & ! 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%suswind_swath, & ! 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%pdyn_smooth, 1 ) * SIZE( grid%pdyn_smooth, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%pdyn_parent, 1 ) * SIZE( grid%pdyn_parent, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%tg_max_m10wind, 1 ) * SIZE( grid%tg_max_m10wind, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_max_m10wind, & ! 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%tg_max_m10wind, & ! 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%tg_max_wwind, 1 ) * SIZE( grid%tg_max_wwind, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_max_wwind, & ! 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%tg_max_wwind, & ! 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%tg_min_wwind, 1 ) * SIZE( grid%tg_min_wwind, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_min_wwind, & ! 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%tg_min_wwind, & ! 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%tg_max_zhel_25, 1 ) * SIZE( grid%tg_max_zhel_25, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_max_zhel_25, & ! 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%tg_max_zhel_25, & ! 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%tg_min_zhel_25, 1 ) * SIZE( grid%tg_min_zhel_25, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_min_zhel_25, & ! 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%tg_min_zhel_25, & ! 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%tg_max_zhel_03, 1 ) * SIZE( grid%tg_max_zhel_03, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_max_zhel_03, & ! 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%tg_max_zhel_03, & ! 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%tg_min_zhel_03, 1 ) * SIZE( grid%tg_min_zhel_03, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_min_zhel_03, & ! 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%tg_min_zhel_03, & ! 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%tg_updhel25, 1 ) * SIZE( grid%tg_updhel25, 2 ) .GT. 1 ) THEN CALL upcopy ( & grid%tg_updhel25, & ! 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%tg_updhel25, & ! 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%tg_max_updhel25, 1 ) * SIZE( grid%tg_max_updhel25, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_max_updhel25, & ! 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%tg_max_updhel25, & ! 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%tg_updhel03, 1 ) * SIZE( grid%tg_updhel03, 2 ) .GT. 1 ) THEN CALL upcopy ( & grid%tg_updhel03, & ! 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%tg_updhel03, & ! 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%tg_max_updhel03, 1 ) * SIZE( grid%tg_max_updhel03, 2 ) .GT. 1 ) THEN CALL upmax ( & grid%tg_max_updhel03, & ! 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%tg_max_updhel03, & ! 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%tg_total_precip, 1 ) * SIZE( grid%tg_total_precip, 2 ) .GT. 1 ) THEN CALL upcopy ( & grid%tg_total_precip, & ! 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%tg_total_precip, & ! 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%hres_fis, 1 ) * SIZE( grid%hres_fis, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%pd, 1 ) * SIZE( grid%pd, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%fis, 1 ) * SIZE( grid%fis, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%t, 1 ) * SIZE( grid%t, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%q, 1 ) * SIZE( grid%q, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%u, 1 ) * SIZE( grid%u, 2 ) .GT. 1 ) THEN CALL upvel ( & grid%u, & ! 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%u, & ! 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 IF ( SIZE( grid%v, 1 ) * SIZE( grid%v, 2 ) .GT. 1 ) THEN CALL upvel ( & grid%v, & ! 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%v, & ! 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 IF ( SIZE( grid%q2, 1 ) * SIZE( grid%q2, 2 ) .GT. 1 ) THEN CALL upmass ( & grid%q2, & ! 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%q2, & ! 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 & ,econst & ,0.000000000e+00 & ) ENDIF IF ( SIZE( grid%acswupt, 1 ) * SIZE( grid%acswupt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswupt, & ! 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%acswupt, & ! 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%acswuptc, 1 ) * SIZE( grid%acswuptc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswuptc, & ! 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%acswuptc, & ! 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%acswdnt, 1 ) * SIZE( grid%acswdnt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswdnt, & ! 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%acswdnt, & ! 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%acswdntc, 1 ) * SIZE( grid%acswdntc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswdntc, & ! 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%acswdntc, & ! 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%acswupb, 1 ) * SIZE( grid%acswupb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswupb, & ! 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%acswupb, & ! 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%acswupbc, 1 ) * SIZE( grid%acswupbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswupbc, & ! 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%acswupbc, & ! 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%acswdnb, 1 ) * SIZE( grid%acswdnb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswdnb, & ! 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%acswdnb, & ! 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%acswdnbc, 1 ) * SIZE( grid%acswdnbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%acswdnbc, & ! 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%acswdnbc, & ! 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%aclwupt, 1 ) * SIZE( grid%aclwupt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwupt, & ! 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%aclwupt, & ! 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%aclwuptc, 1 ) * SIZE( grid%aclwuptc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwuptc, & ! 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%aclwuptc, & ! 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%aclwdnt, 1 ) * SIZE( grid%aclwdnt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwdnt, & ! 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%aclwdnt, & ! 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%aclwdntc, 1 ) * SIZE( grid%aclwdntc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwdntc, & ! 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%aclwdntc, & ! 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%aclwupb, 1 ) * SIZE( grid%aclwupb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwupb, & ! 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%aclwupb, & ! 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%aclwupbc, 1 ) * SIZE( grid%aclwupbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwupbc, & ! 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%aclwupbc, & ! 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%aclwdnb, 1 ) * SIZE( grid%aclwdnb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwdnb, & ! 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%aclwdnb, & ! 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%aclwdnbc, 1 ) * SIZE( grid%aclwdnbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%aclwdnbc, & ! 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%aclwdnbc, & ! 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%swupt, 1 ) * SIZE( grid%swupt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swupt, & ! 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%swupt, & ! 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%swuptc, 1 ) * SIZE( grid%swuptc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swuptc, & ! 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%swuptc, & ! 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%swdnt, 1 ) * SIZE( grid%swdnt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swdnt, & ! 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%swdnt, & ! 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%swdntc, 1 ) * SIZE( grid%swdntc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swdntc, & ! 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%swdntc, & ! 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%swupb, 1 ) * SIZE( grid%swupb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swupb, & ! 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%swupb, & ! 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%swupbc, 1 ) * SIZE( grid%swupbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swupbc, & ! 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%swupbc, & ! 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%swdnb, 1 ) * SIZE( grid%swdnb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swdnb, & ! 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%swdnb, & ! 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%swdnbc, 1 ) * SIZE( grid%swdnbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%swdnbc, & ! 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%swdnbc, & ! 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%lwupt, 1 ) * SIZE( grid%lwupt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwupt, & ! 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%lwupt, & ! 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%lwuptc, 1 ) * SIZE( grid%lwuptc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwuptc, & ! 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%lwuptc, & ! 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%lwdnt, 1 ) * SIZE( grid%lwdnt, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwdnt, & ! 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%lwdnt, & ! 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%lwdntc, 1 ) * SIZE( grid%lwdntc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwdntc, & ! 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%lwdntc, & ! 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%lwupb, 1 ) * SIZE( grid%lwupb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwupb, & ! 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%lwupb, & ! 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%lwupbc, 1 ) * SIZE( grid%lwupbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwupbc, & ! 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%lwupbc, & ! 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%lwdnb, 1 ) * SIZE( grid%lwdnb, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwdnb, & ! 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%lwdnb, & ! 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%lwdnbc, 1 ) * SIZE( grid%lwdnbc, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%lwdnbc, & ! 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%lwdnbc, & ! 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%qnwfa2d, 1 ) * SIZE( grid%qnwfa2d, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%qnwfa2d, & ! 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%qnwfa2d, & ! 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%cwm, 1 ) * SIZE( grid%cwm, 2 ) .GT. 1 ) THEN CALL upmass ( & grid%cwm, & ! 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%cwm, & ! 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 & ,ecopy & ,0.000000000e+00 & ) ENDIF IF ( SIZE( grid%f_ice, 1 ) * SIZE( grid%f_ice, 3 ) .GT. 1 ) THEN CALL upmassikj ( & grid%f_ice, & ! 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%f_ice, & ! 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 & ,eextrap & ,0.000000000e+00 & ) ENDIF IF ( SIZE( grid%f_rain, 1 ) * SIZE( grid%f_rain, 3 ) .GT. 1 ) THEN CALL upmassikj ( & grid%f_rain, & ! 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%f_rain, & ! 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 & ,eextrap & ,0.000000000e+00 & ) ENDIF IF ( SIZE( grid%f_rimef, 1 ) * SIZE( grid%f_rimef, 3 ) .GT. 1 ) THEN CALL upmassikj ( & grid%f_rimef, & ! 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%f_rimef, & ! 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 & ,eextrap & ,1.000000000e+00 & ) ENDIF IF ( SIZE( grid%ctopo, 1 ) * SIZE( grid%ctopo, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%ctopo, & ! 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%ctopo, & ! 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%ctopo2, 1 ) * SIZE( grid%ctopo2, 2 ) .GT. 1 ) THEN CALL UpCopy ( & grid%ctopo2, & ! 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%ctopo2, & ! 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%pint, 1 ) * SIZE( grid%pint, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%winfo, 1 ) * SIZE( grid%winfo, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF IF ( SIZE( grid%iinfo, 1 ) * SIZE( grid%iinfo, 2 ) .GT. 1 ) THEN CONTINUE ! do not call nointerp ENDIF DO itrace = PARAM_FIRST_SCALAR, num_moist IF ( SIZE( moist, 1 ) * SIZE( moist, 2 ) .GT. 1 .and. (interp_mp .eqv. .true.) ) THEN CALL upmass ( & moist(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%moist(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 & ,ecopy & ,0.000000000e+00 & ) ENDIF ENDDO DO itrace = PARAM_FIRST_SCALAR, num_scalar IF ( SIZE( scalar, 1 ) * SIZE( scalar, 2 ) .GT. 1 .and. (interp_mp .eqv. .true.) ) THEN CALL upmass ( & 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 & ,ecopy & ,0.000000000e+00 & ) ENDIF ENDDO DO itrace = PARAM_FIRST_SCALAR, num_dfi_scalar IF ( SIZE( dfi_scalar, 1 ) * SIZE( dfi_scalar, 2 ) .GT. 1 .and. (interp_mp .eqv. .true.) ) THEN CALL upmass ( & 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 & ,ecopy & ,0.000000000e+00 & ) ENDIF ENDDO IF ( SIZE( grid%isnowxy, 1 ) * SIZE( grid%isnowxy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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 upnear ( & 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 upnear ( & 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%canicexy, 1 ) * SIZE( grid%canicexy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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%canliqxy, 1 ) * SIZE( grid%canliqxy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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%eahxy, 1 ) * SIZE( grid%eahxy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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%tsnoxy, 1 ) * SIZE( grid%tsnoxy, 3 ) .GT. 1 ) THEN CALL upnear ( & 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%zsnsoxy, 1 ) * SIZE( grid%zsnsoxy, 3 ) .GT. 1 ) THEN CALL upnear ( & 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%snicexy, 1 ) * SIZE( grid%snicexy, 3 ) .GT. 1 ) THEN CALL upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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%t2mvxy, 1 ) * SIZE( grid%t2mvxy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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%tradxy, 1 ) * SIZE( grid%tradxy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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%neexy, 1 ) * SIZE( grid%neexy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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%rssunxy, 1 ) * SIZE( grid%rssunxy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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%tgvxy, 1 ) * SIZE( grid%tgvxy, 2 ) .GT. 1 ) THEN CALL upnear ( & 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 upnear ( & 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 upnear ( & 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 upnear ( & 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 IF ( SIZE( grid%shgxy, 1 ) * SIZE( grid%shgxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%shgxy, & ! 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%shgxy, & ! 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%shcxy, 1 ) * SIZE( grid%shcxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%shcxy, & ! 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%shcxy, & ! 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%shbxy, 1 ) * SIZE( grid%shbxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%shbxy, & ! 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%shbxy, & ! 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%evgxy, 1 ) * SIZE( grid%evgxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%evgxy, & ! 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%evgxy, & ! 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%evbxy, 1 ) * SIZE( grid%evbxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%evbxy, & ! 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%evbxy, & ! 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%ghvxy, 1 ) * SIZE( grid%ghvxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%ghvxy, & ! 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%ghvxy, & ! 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%ghbxy, 1 ) * SIZE( grid%ghbxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%ghbxy, & ! 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%ghbxy, & ! 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%irgxy, 1 ) * SIZE( grid%irgxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%irgxy, & ! 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%irgxy, & ! 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%ircxy, 1 ) * SIZE( grid%ircxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%ircxy, & ! 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%ircxy, & ! 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%irbxy, 1 ) * SIZE( grid%irbxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%irbxy, & ! 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%irbxy, & ! 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%trxy, 1 ) * SIZE( grid%trxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%trxy, & ! 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%trxy, & ! 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%evcxy, 1 ) * SIZE( grid%evcxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%evcxy, & ! 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%evcxy, & ! 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%chleafxy, 1 ) * SIZE( grid%chleafxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%chleafxy, & ! 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%chleafxy, & ! 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%chucxy, 1 ) * SIZE( grid%chucxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%chucxy, & ! 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%chucxy, & ! 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%chv2xy, 1 ) * SIZE( grid%chv2xy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%chv2xy, & ! 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%chv2xy, & ! 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%chb2xy, 1 ) * SIZE( grid%chb2xy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%chb2xy, & ! 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%chb2xy, & ! 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 upnear ( & 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%grainxy, 1 ) * SIZE( grid%grainxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%grainxy, & ! 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%grainxy, & ! 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%gddxy, 1 ) * SIZE( grid%gddxy, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%gddxy, & ! 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%gddxy, & ! 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%croptype, 1 ) * SIZE( grid%croptype, 3 ) .GT. 1 ) THEN CALL upnear ( & grid%croptype, & ! CD field cids, cide, 1, 5, cjds, cjde, & ! CD dims cims, cime, 1, 5, cjms, cjme, & ! CD dims cips, cipe, 1, 5, cjps, cjpe, & ! CD dims ngrid%croptype, & ! ND field nids, nide, 1, 5, njds, njde, & ! ND dims nims, nime, 1, 5, njms, njme, & ! ND dims nips, nipe, 1, 5, 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%planting, 1 ) * SIZE( grid%planting, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%planting, & ! 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%planting, & ! 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%harvest, 1 ) * SIZE( grid%harvest, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%harvest, & ! 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%harvest, & ! 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%season_gdd, 1 ) * SIZE( grid%season_gdd, 2 ) .GT. 1 ) THEN CALL upnear ( & grid%season_gdd, & ! 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%season_gdd, & ! 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