--- trunk/phylmd/hgardfou.f	2014/03/05 14:57:53	82
+++ trunk/Sources/phylmd/hgardfou.f	2017/04/20 14:44:47	221
@@ -4,9 +4,9 @@
 
 contains
 
-  SUBROUTINE hgardfou(t, tsol)
+  SUBROUTINE hgardfou(t, ftsol)
 
-    ! From phylmd/hgardfou.F, v 1.1.1.1 2004/05/19 12:53:07
+    ! From phylmd/hgardfou.F, v 1.1.1.1, 2004/05/19 12:53:07
 
     ! This procedure aborts the program if the temperature gets out of range.
 
@@ -14,7 +14,7 @@
     USE dimphy, ONLY: klev, klon
     use nr_util, only: ifirstloc
 
-    REAL, intent(in):: t(klon, klev), tsol(klon, nbsrf)
+    REAL, intent(in):: t(klon, klev), ftsol(klon, nbsrf)
 
     ! Variables local to the procedure:
 
@@ -33,10 +33,11 @@
     ENDDO
 
     DO nsrf = 1, nbsrf
-       jbad = ifirstloc(tsol(:, nsrf) > temp_max .or. tsol(:, nsrf) < temp_min)
+       jbad = ifirstloc(ftsol(:, nsrf) > temp_max &
+            .or. ftsol(:, nsrf) < temp_min)
        if (jbad <= klon) then
           PRINT *, 'hgardfou: temperature out of range'
-          print *, "tsol(", jbad, ", ", nsrf, ") = ", tsol(jbad, nsrf)
+          print *, "ftsol(", jbad, ", ", nsrf, ") = ", ftsol(jbad, nsrf)
           stop 1
        ENDIF
     ENDDO