Index: trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90
===================================================================
--- trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90	(revision 2407)
+++ trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90	(revision 2408)
@@ -230,6 +230,6 @@
               endif
               if ( usept(ip,1) ) then ! if not all false 
-                tmin = minval(pt(ig,min(inflay(ip+1)+1,nlayer):max(inflay(ip),1)))
-                tmax = maxval(pt(ig,min(inflay(ip+1)+1,nlayer):max(inflay(ip),1)))
+                tmin = minval(pt(ig,max(inflay(ip+1)+1,1):min(inflay(ip)+1,nlayer)))
+                tmax = maxval(pt(ig,max(inflay(ip+1)+1,1):min(inflay(ip)+1,nlayer)))
                 do it=1,L_NTREF-1
                   if ( tgasref(it+1) .lt. tmin ) then