1613 TYPE(grid_transform) :: grid_trans
1614 TYPE(vol7d_level),
POINTER :: llev_out(:)
1615 TYPE(vol7d_level) :: input_levtype, output_levtype
1616 TYPE(vol7d_var) :: vcoord_var
1617 INTEGER :: i, k, ntime, ntimerange, nlevel, nvar, var_coord_in, var_coord_vol, &
1618 cf_out, nxc, nyc, nxi, nyi, i3, i4, i5, i6, &
1619 ulstart, ulend, spos
1620 REAL,
ALLOCATABLE :: coord_3d_in(:,:,:)
1621 TYPE(geo_proj) :: proj_in, proj_out
1622 CHARACTER(len=80) :: trans_type
1624 LOGICAL,
ALLOCATABLE :: mask_in(:)
1627 call l4f_category_log(volgrid6d_in%category, l4f_debug,
"start volgrid6d_transform")