--- trunk/libf/phylmd/initphysto.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/initphysto.f	2008/07/21 16:05:07	12
@@ -53,7 +53,8 @@
 C   Arguments
       character*(*) infile
       integer*4 nhoriid, i
-      real tstep, t_ops, t_wrt
+      real, intent(in):: tstep
+      real t_ops, t_wrt
       integer fileid, filevid
       integer nq,l
       real nivsigs(llm)