--- trunk/Sources/phylmd/Interface_surf/read_sst.f	2017/04/20 14:44:47	221
+++ trunk/Sources/phylmd/Interface_surf/read_sst.f	2017/04/25 15:31:48	222
@@ -4,7 +4,7 @@
 
 contains
 
-  SUBROUTINE read_sst(julien, knindex, lmt_sst)
+  SUBROUTINE read_sst(julien, knindex, tsurf)
 
     ! From interfoce_lim
 
@@ -20,7 +20,7 @@
     integer, intent(in):: knindex(:) ! (knon)
     ! index des points de la surface a traiter
 
-    real, intent(out):: lmt_sst(:) ! (knon)
+    real, intent(out):: tsurf(:) ! (knon)
     ! SST lues dans le fichier de conditions aux limites
 
     ! Local:
@@ -32,7 +32,7 @@
 
     ! --------------------------------------------------
 
-    call assert(size(knindex) == size(lmt_sst), "read_sst knon")
+    call assert(size(knindex) == size(tsurf), "read_sst knon")
 
     ! Tester d'abord si c'est le moment de lire le fichier
     if (mod(itap - 1, lmt_pas) == 0) then
@@ -44,7 +44,7 @@
        call NF95_CLOSE(ncid)
     endif
 
-    lmt_sst = sst_lu(knindex)
+    tsurf = sst_lu(knindex)
 
   END SUBROUTINE read_sst