--- trunk/Sources/phylmd/Mobidic/regr_lat_time_coefoz.f	2016/03/11 18:58:19	179
+++ trunk/phylmd/Mobidic/regr_lat_time_coefoz.f	2018/03/20 09:35:59	265
@@ -36,7 +36,7 @@
     ! -- time increases from January to December (even though we do
     ! not use values of the input time coordinate).
 
-    use dimens_m, only: jjm
+    use dimensions, only: jjm
     use dynetat0_m, only: rlatv
     use nr_util, only: pi
     use numer_rec_95, only: regr3_lint, regr1_conserv, slopes
@@ -50,14 +50,14 @@
     integer n_plev ! number of pressure levels in the input data
     integer n_lat! number of latitudes in the input data
 
-    real, pointer:: latitude(:)
+    real, allocatable:: latitude(:)
     ! (of input data, converted to rad, sorted in strictly increasing order)
 
     real, allocatable:: lat_in_edg(:)
     ! (edges of latitude intervals for input data, in rad, in strictly
     ! increasing order)
 
-    real, pointer:: plev(:) ! pressure level of input data
+    real, allocatable:: plev(:) ! pressure level of input data
     logical decr_lat ! decreasing latitude in the input file
 
     real, allocatable:: o3_par_in(:, :, :) ! (n_lat, n_plev, 12)
@@ -167,7 +167,6 @@
     lat_in_edg(1) = - pi / 2
     forall (j = 2:n_lat) lat_in_edg(j) = (latitude(j - 1) + latitude(j)) / 2
     lat_in_edg(n_lat + 1) = pi / 2
-    deallocate(latitude) ! pointer
 
     call nf95_inq_varid(ncid_in, "plev", varid)
     call nf95_gw_var(ncid_in, varid, plev)
@@ -187,8 +186,6 @@
     call nf95_put_var(ncid_out, varid_time, tmidday)
     call nf95_put_var(ncid_out, varid_plev, plev)
 
-    deallocate(plev) ! pointer
-
     allocate(o3_par_in(n_lat, n_plev, 12))
     allocate(v_regr_lat(jjm + 1, n_plev, 0:13))
     allocate(o3_par_out(jjm + 1, n_plev, 360))
@@ -238,7 +235,7 @@
     ! This subroutine creates the NetCDF output file, defines
     ! dimensions and variables, and writes one of the coordinate variables.
 
-    use dimens_m, only: jjm
+    use dimensions, only: jjm
     use dynetat0_m, only: rlatu
     use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global
     use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &