From 21bbd11c88440de7aafbe47648b91385b5bf2052 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Thu, 24 Jan 2019 15:12:16 +0100
Subject: [PATCH] Polish.
---
successive_overlap.f | 1 +
weight.f | 4 ++--
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/successive_overlap.f b/successive_overlap.f
index d899ffff..e79ad70a 100644
--- a/successive_overlap.f
+++ b/successive_overlap.f
@@ -25,6 +25,7 @@ contains
integer, intent(in):: j, k
! Local:
+
integer i1, i1_lon, i1_lat, m, l, i2
type(polyline) polyline_1, polyline_2
type(polygon) res_pol
diff --git a/weight.f b/weight.f
index a4b20f16..90daf23e 100644
--- a/weight.f
+++ b/weight.f
@@ -29,13 +29,13 @@ contains
! a quiet NaN, and then the result is a quiet NaN.
use derived_types, only: eddy
- use nr_util, only: pi
+ use nr_util, only: pi, twopi
type(eddy), intent(in):: e
! Local:
- real, parameter:: omega = 2 * pi / 86164.
+ real, parameter:: omega = twopi / 86164.
! angular speed of rotation of the Earth, in rad s-1
real radius ! of the disk of same area
--
GitLab