Index: trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90
===================================================================
--- trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90	(revision 3853)
+++ trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90	(revision 3879)
@@ -1127,5 +1127,5 @@
          end do
 
-        else ! total heating rates multiplied by nlte coef
+        else ! total heating rates multiplied by nlte coef : better not use
 
          do nw=1,L_NSPECTV
Index: trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90
===================================================================
--- trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90	(revision 3853)
+++ trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90	(revision 3879)
@@ -885,5 +885,5 @@
     if (is_master)write(*,*)trim(rname)//&
      " nlte = ",nlte
-    strobel=.false.  ! default value
+    strobel=.true.  ! default value
     call getin_p("strobel",strobel)
     if (is_master)write(*,*)trim(rname)//&