--- trunk/dyn3d/Read_reanalyse/nat2gcm.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/Read_reanalyse/nat2gcm.f	2014/03/11 15:09:02	88
@@ -15,8 +15,6 @@
 
       real u(iip1,jjp1,llm),v(iip1,jjm,llm)
       real t(iip1,jjp1,llm),pk(iip1,jjp1,llm),rh(iip1,jjp1,llm)
-      real ps(iip1,jjp1)
-
       real ucov(iip1,jjp1,llm),vcov(iip1,jjm,llm)
       real teta(iip1,jjp1,llm),q(iip1,jjp1,llm)