--- img.fpp.orig	2006-04-04 01:35:48.000000000 +0200
+++ img.fpp	2007-05-09 16:13:11.000000000 +0200
@@ -216,6 +216,11 @@
   
 ! Find the longest unused run of images with id's below my_img_lo:
 
+!RRZE-start
+    if (my_img_lo.gt.img_cnt) then
+       write(*,*) "img.f90/find_img_range: my_img_lo>img_cnt; access to img_atm_map fails", my_img_lo, img_cnt
+    endif
+!RRZE-end
   do img_i = 1, my_img_lo
 
     if (img_atm_map(img_i) .lt. 0) then   ! img not used