From d06ca48f066d3d50cbc3730c8670d94541827c42 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 3 Dec 2014 14:02:20 +0000
Subject: [PATCH] Juan 3/12/2014: typo form -> from
---
src/LIB/SURCOUCHE/src/mode_mnh_world.f90 | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90
index 185b593af..5614c9799 100644
--- a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90
+++ b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90
@@ -2,6 +2,11 @@
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
+!! MODIFICATIONS
+!! -------------
+!!
+!! J.Escobar 3/12/2014 : typo form -> from
+!!
MODULE MODE_MNH_WORLD
IMPLICIT NONE
CHARACTER(len=*), parameter :: conf_mnh_world="conf_mnh_world.nam"
@@ -55,7 +60,7 @@ CONTAINS
! Read namelist config file
!
IF ( irank .EQ. 0 ) THEN
- PRINT*,"hello world form rank=",irank," nproc=",IPROC
+ PRINT*,"hello world from rank=",irank," nproc=",IPROC
OPEN(unit=10,form="formatted",file=conf_mnh_world,STATUS='OLD',iostat=IERR)
! Read IO parameter
IF (IERR.EQ.0) THEN
--
GitLab