--- trunk/Sources/phylmd/Mobidic/regr_pr_o3.f	2015/04/29 15:47:56	134
+++ trunk/Sources/phylmd/Mobidic/regr_pr_o3.f	2017/10/16 12:35:41	225
@@ -43,7 +43,7 @@
 
     ! Variables local to the procedure:
 
-    real, pointer:: plev(:)
+    real, allocatable:: plev(:)
     ! (pressure levels of Mobidic data, in Pa, in strictly increasing order)
 
     real, allocatable:: press_in_edg(:)
@@ -84,8 +84,6 @@
     ! (infinity, but any value guaranteed to be greater than the
     ! surface pressure would do)
 
-    deallocate(plev) ! pointer
-
     call nf95_inq_varid(ncid, "r_Mob", varid)
     allocate(r_mob(jjm + 1, n_plev))