--- trunk/Sources/phylmd/Orography/start_init_orog_m.f	2017/10/16 12:35:41	225
+++ trunk/phylmd/Orography/start_init_orog.f	2018/03/20 09:35:59	265
@@ -3,7 +3,7 @@
   ! From startvar.F, version 1.4
   ! 2006/01/27 15:14:22 Fairhead
 
-  use dimens_m, only: iim, jjm
+  use dimensions, only: iim, jjm
 
   IMPLICIT NONE
 
@@ -53,7 +53,7 @@
     INTEGER iml_rel
     INTEGER jml_rel
     INTEGER ncid, varid
-    REAL, ALLOCATABLE:: relief(:, :)
+    REAL, ALLOCATABLE:: relief(:, :) ! in m
     REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)
     REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:)
 
@@ -94,7 +94,6 @@
          interbar=.FALSE.)
 
     print *, 'Compute all the parameters needed for the gravity wave drag code'
-
     CALL grid_noro(lon_rad, lat_rad, relief, rlonv, rlatu, phis, zmea_2d, &
          zstd_2d, zsig_2d, zgam_2d, zthe_2d, zpic_2d, zval_2d, mask)
     phis(:, :) = phis(:, :) * 9.81