00001 !------------------------------------------------------------------------ 00002 ! Copyright 2010, DKRZ, Hamburg, Germany. 00003 ! All rights reserved. Use is subject to OASIS4 license terms. 00004 !------------------------------------------------------------------------ 00005 00006 00007 module psmile_debug_trace 00008 00009 use psmile_common, only : ndim_3d 00010 00011 integer :: ictl ! 00012 integer :: ictl_ind(ndim_3d) ! target point indices 00013 integer, allocatable :: ictl_neighbours (:) ! source points found for 00014 ! the interpolation of the 00015 ! target point 00016 00017 end module psmile_debug_trace
1.6.1