Index: trunk/LMDZ.MARS/libf/phymars/nlte_tcool.F
===================================================================
--- trunk/LMDZ.MARS/libf/phymars/nlte_tcool.F	(revision 758)
+++ trunk/LMDZ.MARS/libf/phymars/nlte_tcool.F	(revision 759)
@@ -390,12 +390,12 @@
          zl_cts(i) = zl_cts(1) + (i-1)*deltaz_cts
          if (zl_cts(i) .gt. z_gcm(n_gcm)) then
-            write (*,*) '!!!!!!!! Warning in top CTS layers. '
-            write (*,*) ' zl_Cts too high for z_gcm. '
-            write (*,*) ' z_gcm, zl_cts(i), i =',
-     $           z_gcm(n_gcm), zl_cts(i), i
-            write (*,*) '!!!!!!!! NLTE-CTS upper boundary modified '//
-     $           ' to match z_gcm'
+!            write (*,*) '!!!!!!!! Warning in top CTS layers. '
+!            write (*,*) ' zl_Cts too high for z_gcm. '
+!            write (*,*) ' z_gcm, zl_cts(i), i =',
+!     $           z_gcm(n_gcm), zl_cts(i), i
+!            write (*,*) '!!!!!!!! NLTE-CTS upper boundary modified '//
+!     $           ' to match z_gcm'
             nl_cts_real=i-1
-            write (*,*) '  Original,Real NL_CTS=', nl_cts,nl_cts_real
+!            write (*,*) '  Original,Real NL_CTS=', nl_cts,nl_cts_real
             goto 6000
          endif