From 53dae0cfb7f407ffc1110c0a1cea98982c11717f Mon Sep 17 00:00:00 2001
From: Pierre-Yves Barriat <pierre-yves.barriat@uclouvain.be>
Date: Wed, 9 Nov 2022 09:51:03 +0100
Subject: [PATCH] Typo
---
src/02_sphere.f | 3 +--
src/04_namelist.f90 | 2 +-
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/02_sphere.f b/src/02_sphere.f
index 30a4001..d074336 100644
--- a/src/02_sphere.f
+++ b/src/02_sphere.f
@@ -6,8 +6,7 @@
WRITE(*,*) 'Enter the value for the radius of a sphere.'
READ(*,*) radius
-ccccc PI & radius values
- radius =
+ccccc PI value
pi =
ccccc PI value
WRITE(*,*) 'The value of pi is ', pi
diff --git a/src/04_namelist.f90 b/src/04_namelist.f90
index 04f4633..12b384c 100644
--- a/src/04_namelist.f90
+++ b/src/04_namelist.f90
@@ -10,7 +10,7 @@ PROGRAM test_namelist
write(*,*) 'Before:'
call print_res(lon_min, lon_max, lat_min, lat_max)
- open(161,file='07_namelist.def',status='old',form='formatted')
+ open(161,file='04_namelist.def',status='old',form='formatted')
read(161,NML=namlon)
write(*,*) 'Between:'
--
GitLab