--- trunk/libf/phylmd/phytrac.f90	2008/10/15 16:51:38	21
+++ trunk/libf/phylmd/phytrac.f90	2009/07/31 15:18:47	22
@@ -513,7 +513,7 @@
       ENDDO
 
       CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay))
-      CALL histwrite(nid_tra, "t", itau_w, gr_phy_write_3d(t_seri))
+      CALL histwrite(nid_tra, "T", itau_w, gr_phy_write_3d(t_seri))
 
       if (ok_sync) then
          call histsync(nid_tra)