--- trunk/dyn3d/Read_reanalyse/reanalyse2nat.f90	2013/11/15 18:45:49	76
+++ trunk/dyn3d/Read_reanalyse/reanalyse2nat.f	2014/03/06 15:12:00	83
@@ -19,7 +19,7 @@
 
 
   integer nlevnc
-  real psi(iip1,jjp1)
+  real, intent(in):: psi(iip1,jjp1)
   real u(iip1,jjp1,llm),v(iip1,jjm,llm)
   real t(iip1,jjp1,llm),ps(iip1,jjp1),q(iip1,jjp1,llm)