--- trunk/Sources/phylmd/Orography/start_init_orog_m.f 2017/11/02 15:47:03 227 +++ trunk/Sources/phylmd/Orography/start_init_orog.f 2018/01/05 14:45:45 247 @@ -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