--- trunk/phylmd/CV3_routines/cv3_trigger.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/CV3_routines/cv3_trigger.f	2014/04/25 14:58:31	97
@@ -21,7 +21,7 @@
 
 
 ! input:
-      integer len, nd
+      integer, intent(in):: len, nd
       integer icb(len)
       real plcl(len), p(len,nd)
       real th(len,nd), tv(len,nd), tvp(len,nd)