Skip to content
Snippets Groups Projects
Commit d06ca48f authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 3/12/2014: typo form -> from

parent ede04a8a
No related branches found
No related tags found
No related merge requests found
...@@ -2,6 +2,11 @@ ...@@ -2,6 +2,11 @@
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
!! MODIFICATIONS
!! -------------
!!
!! J.Escobar 3/12/2014 : typo form -> from
!!
MODULE MODE_MNH_WORLD MODULE MODE_MNH_WORLD
IMPLICIT NONE IMPLICIT NONE
CHARACTER(len=*), parameter :: conf_mnh_world="conf_mnh_world.nam" CHARACTER(len=*), parameter :: conf_mnh_world="conf_mnh_world.nam"
...@@ -55,7 +60,7 @@ CONTAINS ...@@ -55,7 +60,7 @@ CONTAINS
! Read namelist config file ! Read namelist config file
! !
IF ( irank .EQ. 0 ) THEN 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) OPEN(unit=10,form="formatted",file=conf_mnh_world,STATUS='OLD',iostat=IERR)
! Read IO parameter ! Read IO parameter
IF (IERR.EQ.0) THEN IF (IERR.EQ.0) THEN
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment