--- trunk/phylmd/CV3_routines/cv3_trigger.f	2014/04/25 14:58:31	97
+++ trunk/Sources/phylmd/CV30_routines/cv30_trigger.f	2016/03/16 15:04:46	185
@@ -1,7 +1,7 @@
 
-      SUBROUTINE cv3_trigger(len,nd,icb,plcl,p,th,tv,tvp &
+      SUBROUTINE cv30_trigger(len,nd,icb,plcl,p,th,tv,tvp &
                       ,pbase,buoybase,iflag,sig,w0)
-            use cv3_param_m
+            use cv30_param_m
       implicit none
 
 !-------------------------------------------------------------------
@@ -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: