--- trunk/phylmd/CV3_routines/cv3_trigger.f	2014/07/15 13:43:24	102
+++ trunk/phylmd/CV3_routines/cv3_trigger.f	2014/08/29 13:00:05	103
@@ -23,7 +23,7 @@
 ! input:
       integer, intent(in):: len, nd
       integer icb(len)
-      real plcl(len), p(len,nd)
+      real, intent(in):: plcl(len), p(len,nd)
       real th(len,nd), tv(len,nd), tvp(len,nd)
 
 ! output: