--- trunk/Sources/dyn3d/start_init_phys_m.f	2015/04/29 15:47:56	134
+++ trunk/dyn3d/start_init_phys_m.f	2018/03/20 09:35:59	265
@@ -9,9 +9,9 @@
 
   SUBROUTINE start_init_phys(tsol_2d, qsol_2d)
 
-    use comgeom, only: rlonu, rlatv
     use conf_dat2d_m, only: conf_dat2d
-    use dimens_m, only: iim, jjm
+    use dimensions, only: iim, jjm
+    use dynetat0_m, only: rlonu, rlatv
     use gr_int_dyn_m, only: gr_int_dyn
     use inter_barxy_m, only: inter_barxy
     use netcdf, only: nf90_nowrite
@@ -25,7 +25,7 @@
 
     INTEGER iml_phys, jml_phys, ncid, varid
     REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)
-    REAL, pointer:: lon_ini(:), lat_ini(:) ! longitude and latitude in rad
+    REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:) ! longitude and latitude in rad
     REAL, ALLOCATABLE:: var_ana(:, :)
     real tmp_var(iim, jjm + 1)
 
@@ -73,7 +73,6 @@
     qsol_2d = gr_int_dyn(tmp_var)
 
     call nf95_close(ncid)
-    deallocate(lon_ini, lat_ini) ! pointers
 
   END SUBROUTINE start_init_phys