!STARTOFREGISTRYGENERATEDINCLUDE 'inc/nest_interpdown_interp.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit. Your changes to this file will be lost.
!
IF ( SIZE( grid%lu_index, 1 ) * SIZE( grid%lu_index, 2 ) .GT. 1 ) THEN
CALL interp_fcnm
( &
grid%lu_index, & ! CD field
cids, cide, 1, 1, cjds, cjde, & ! CD dims
cims, cime, 1, 1, cjms, cjme, & ! CD dims
cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
ngrid%lu_index, & ! ND field
nids, nide, 1, 1, njds, njde, & ! ND dims
nims, nime, 1, 1, njms, njme, & ! ND dims
nips, nipe, 1, 1, njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%u_2, 1 ) * SIZE( grid%u_2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%u_2, & ! 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_2, & ! 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_xstag, & ! stencil half width
.TRUE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%v_2, 1 ) * SIZE( grid%v_2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%v_2, & ! 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_2, & ! 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_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%w_2, 1 ) * SIZE( grid%w_2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%w_2, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
ngrid%w_2, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( nkde, 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%ph_2, 1 ) * SIZE( grid%ph_2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%ph_2, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
ngrid%ph_2, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( nkde, 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%phb, 1 ) * SIZE( grid%phb, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%phb, & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
ngrid%phb, & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( nkde, 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%t_2, 1 ) * SIZE( grid%t_2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%t_2, & ! 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%t_2, & ! 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%mu_2, 1 ) * SIZE( grid%mu_2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%mu_2, & ! CD field
cids, cide, 1, 1, cjds, cjde, & ! CD dims
cims, cime, 1, 1, cjms, cjme, & ! CD dims
cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
ngrid%mu_2, & ! ND field
nids, nide, 1, 1, njds, njde, & ! ND dims
nims, nime, 1, 1, njms, njme, & ! ND dims
nips, nipe, 1, 1, njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%mub, 1 ) * SIZE( grid%mub, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%mub, & ! 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%mub, & ! 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%alb, 1 ) * SIZE( grid%alb, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%alb, & ! 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%alb, & ! 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%pb, 1 ) * SIZE( grid%pb, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%pb, & ! 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%pb, & ! 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 interp_fcn ( &
grid%q2, & ! 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%q2, & ! 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%t2, 1 ) * SIZE( grid%t2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%t2, & ! 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%t2, & ! 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%th2, 1 ) * SIZE( grid%th2, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%th2, & ! 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%th2, & ! 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%psfc, 1 ) * SIZE( grid%psfc, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%psfc, & ! 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%psfc, & ! 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%u10, 1 ) * SIZE( grid%u10, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%u10, & ! 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%u10, & ! 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%v10, 1 ) * SIZE( grid%v10, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%v10, & ! 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%v10, & ! ND field
nids, nide, 1, 1, njds, njde, & ! ND dims
nims, nime, 1, 1, njms, njme, & ! ND dims
nips, nipe, 1, 1, njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
DO itrace = PARAM_FIRST_SCALAR, num_moist
IF ( SIZE( moist, 1 ) * SIZE( moist, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
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 &
)
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_scalar
IF ( SIZE( scalar, 1 ) * SIZE( scalar, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
ENDDO
IF ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%smois , 1 )*SIZE( grid%smois , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%smois, & ! CD field
cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
ngrid%smois, & ! ND field
nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_soil_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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%sh2o , 1 )*SIZE( grid%sh2o , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%sh2o, & ! CD field
cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
ngrid%sh2o, & ! ND field
nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_soil_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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%smcrel , 1 )*SIZE( grid%smcrel , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%smcrel, & ! CD field
cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
ngrid%smcrel, & ! ND field
nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_soil_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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( .TRUE. ) THEN
CALL interp_mask_water_field ( &
( SIZE( grid%xice , 1 )*SIZE( grid%xice , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_water_field has bcasts in it
grid%xice, & ! 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%xice, & ! 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 &
,grid%lu_index,ngrid%lu_index&
,grid%isice,ngrid%isice&
)
ENDIF
IF ( SIZE( grid%ivgtyp, 1 ) * SIZE( grid%ivgtyp, 2 ) .GT. 1 ) THEN
CALL interp_fcni ( &
grid%ivgtyp, & ! 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%ivgtyp, & ! 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%isltyp, 1 ) * SIZE( grid%isltyp, 2 ) .GT. 1 ) THEN
CALL interp_fcni ( &
grid%isltyp, & ! 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%isltyp, & ! 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 ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%vegfra , 1 )*SIZE( grid%vegfra , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%vegfra, & ! 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%vegfra, & ! 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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%snow , 1 )*SIZE( grid%snow , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%snow, & ! 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%snow, & ! 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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%snowh , 1 )*SIZE( grid%snowh , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%snowh, & ! 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%snowh, & ! 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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%tslb , 1 )*SIZE( grid%tslb , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%tslb, & ! CD field
cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
ngrid%tslb, & ! ND field
nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
nips, nipe, 1, config_flags%num_soil_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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( SIZE( grid%msft, 1 ) * SIZE( grid%msft, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msft, & ! 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%msft, & ! 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%msfu, 1 ) * SIZE( grid%msfu, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfu, & ! 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%msfu, & ! 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_xstag, & ! stencil half width
.TRUE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%msfv, 1 ) * SIZE( grid%msfv, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfv, & ! 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%msfv, & ! 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_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%msftx, 1 ) * SIZE( grid%msftx, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msftx, & ! 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%msftx, & ! 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%msfty, 1 ) * SIZE( grid%msfty, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfty, & ! 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%msfty, & ! 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%msfux, 1 ) * SIZE( grid%msfux, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfux, & ! 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%msfux, & ! 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_xstag, & ! stencil half width
.TRUE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%msfuy, 1 ) * SIZE( grid%msfuy, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfuy, & ! 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%msfuy, & ! 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_xstag, & ! stencil half width
.TRUE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%msfvx, 1 ) * SIZE( grid%msfvx, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfvx, & ! 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%msfvx, & ! 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_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%msfvx_inv, 1 ) * SIZE( grid%msfvx_inv, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfvx_inv, & ! 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%msfvx_inv, & ! 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_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%msfvy, 1 ) * SIZE( grid%msfvy, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%msfvy, & ! 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%msfvy, & ! 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_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%f, 1 ) * SIZE( grid%f, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%f, & ! 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%f, & ! 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%e, 1 ) * SIZE( grid%e, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%e, & ! 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%e, & ! 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%sina, 1 ) * SIZE( grid%sina, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%sina, & ! 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%sina, & ! 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%cosa, 1 ) * SIZE( grid%cosa, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%cosa, & ! 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%cosa, & ! 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%ht, 1 ) * SIZE( grid%ht, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%ht, & ! 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%ht, & ! 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%tsk, 1 ) * SIZE( grid%tsk, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%tsk, & ! 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%tsk, & ! 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%rainc, 1 ) * SIZE( grid%rainc, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%rainc, & ! 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%rainc, & ! 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%rainnc, 1 ) * SIZE( grid%rainnc, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%rainnc, & ! 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%rainnc, & ! 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%xlat, 1 ) * SIZE( grid%xlat, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%xlat, & ! 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%xlat, & ! 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%xlong, 1 ) * SIZE( grid%xlong, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%xlong, & ! 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%xlong, & ! 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%xlat_u, 1 ) * SIZE( grid%xlat_u, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%xlat_u, & ! 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%xlat_u, & ! 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_xstag, & ! stencil half width
.TRUE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%xlong_u, 1 ) * SIZE( grid%xlong_u, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%xlong_u, & ! 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%xlong_u, & ! 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_xstag, & ! stencil half width
.TRUE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%xlat_v, 1 ) * SIZE( grid%xlat_v, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%xlat_v, & ! 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%xlat_v, & ! 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_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%xlong_v, 1 ) * SIZE( grid%xlong_v, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%xlong_v, & ! 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%xlong_v, & ! 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_ystag, & ! stencil half width
.FALSE., .TRUE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
IF ( SIZE( grid%clat, 1 ) * SIZE( grid%clat, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%clat, & ! 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%clat, & ! 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 ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%tmn , 1 )*SIZE( grid%tmn , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%tmn, & ! 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%tmn, & ! 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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( SIZE( grid%xland, 1 ) * SIZE( grid%xland, 2 ) .GT. 1 ) THEN
CALL interp_fcnm ( &
grid%xland, & ! 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%xland, & ! 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 ( .TRUE. ) THEN
CALL interp_mask_land_field ( &
( SIZE( grid%snowc , 1 )*SIZE( grid%snowc , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_land_field has bcasts in it
grid%snowc, & ! 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%snowc, & ! 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 &
,grid%lu_index,ngrid%lu_index&
)
ENDIF
IF ( SIZE( grid%g_h_diabatic, 1 ) * SIZE( grid%g_h_diabatic, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%g_h_diabatic, & ! 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%g_h_diabatic, & ! 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%a_h_diabatic, 1 ) * SIZE( grid%a_h_diabatic, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%a_h_diabatic, & ! 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%a_h_diabatic, & ! 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%g_rainc, 1 ) * SIZE( grid%g_rainc, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%g_rainc, & ! 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%g_rainc, & ! 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%a_rainc, 1 ) * SIZE( grid%a_rainc, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%a_rainc, & ! 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%a_rainc, & ! 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%g_rainnc, 1 ) * SIZE( grid%g_rainnc, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%g_rainnc, & ! 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%g_rainnc, & ! 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%a_rainnc, 1 ) * SIZE( grid%a_rainnc, 2 ) .GT. 1 ) THEN
CALL interp_fcn ( &
grid%a_rainnc, & ! 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%a_rainnc, & ! 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%landmask, 1 ) * SIZE( grid%landmask, 2 ) .GT. 1 ) THEN
CALL interp_fcnm ( &
grid%landmask, & ! 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%landmask, & ! 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 ( .TRUE. ) THEN
CALL interp_mask_water_field ( &
( SIZE( grid%sst , 1 )*SIZE( grid%sst , 2 ) .GT. 1 ), & ! special argument needed because interp_mask_water_field has bcasts in it
grid%sst, & ! 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%sst, & ! 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 &
,grid%lu_index,ngrid%lu_index&
,grid%iswater,ngrid%iswater&
)
ENDIF
DO itrace = PARAM_FIRST_SCALAR, num_tracer
IF ( SIZE( tracer, 1 ) * SIZE( tracer, 3 ) .GT. 1 ) THEN
CALL interp_fcn ( &
tracer(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%tracer(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
nids, nide, nkds, nkde, njds, njde, & ! ND dims
nims, nime, nkms, nkme, njms, njme, & ! ND dims
nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
config_flags%shw, ngrid%imask_nostag, & ! stencil half width
.FALSE., .FALSE., & ! xstag, ystag
ngrid%i_parent_start, ngrid%j_parent_start, &
ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
)
ENDIF
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE