From 1b4649815a0a39dcb1f6e67cc5b25707403ce903 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 6 Oct 2017 14:22:26 +0200
Subject: [PATCH] Philippe 06/10/2017: removed GLOBAL and SPECIFIC parameters +
removed superfluous call in mode_time
---
src/LIB/SURCOUCHE/src/mode_io.f90 | 7 +------
src/MNH/ch_aer_mod_init.f90 | 12 ++++++------
src/MNH/ch_open_input.f90 | 2 +-
src/MNH/diag.f90 | 2 +-
src/MNH/ini_segn.f90 | 4 ++--
src/MNH/init_mnh.f90 | 2 +-
src/MNH/latlon_to_xy.f90 | 2 +-
src/MNH/mnhopen_namelist.f90 | 2 +-
src/MNH/mnhopen_write_cover_tex.f90 | 2 +-
src/MNH/mode_time.f90 | 5 +----
src/MNH/open_data_files.f90 | 8 ++++----
src/MNH/open_file_mnh.f90 | 6 +++---
src/MNH/open_luoutn.f90 | 2 +-
src/MNH/open_nestpgd_files.f90 | 4 ++--
src/MNH/open_prc_files.f90 | 4 ++--
src/MNH/prep_ideal_case.f90 | 4 ++--
src/MNH/prep_pgd.f90 | 4 ++--
src/MNH/radar_scattering.f90 | 8 ++++----
src/MNH/read_all_data_mesonh_case.f90 | 2 +-
src/MNH/read_exspa.f90 | 4 ++--
src/MNH/reset_exseg.f90 | 2 +-
src/MNH/set_subdomain.f90 | 2 +-
src/MNH/spawning.f90 | 4 ++--
src/MNH/spectre.f90 | 2 +-
src/MNH/write_lfifm1_for_diag.f90 | 2 +-
src/MNH/write_ts1d.f90 | 4 ++--
src/MNH/xy_to_latlon.f90 | 2 +-
src/MNH/zoom_pgd.f90 | 4 ++--
28 files changed, 50 insertions(+), 58 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index 78e95d234..5d87aac48 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -48,14 +48,9 @@ MODULE MODE_IO_ll
!
CHARACTER(LEN=*),PARAMETER :: CFILENULL="/dev/null"
!
- !! Provisoire
- CHARACTER(LEN=*),PARAMETER :: GLOBAL='GLOBAL'
- CHARACTER(LEN=*),PARAMETER :: SPECIFIC='SPECIFIC'
- !!
LOGICAL,SAVE :: GCONFIO = .FALSE. ! Turn TRUE when SET_CONFIO_ll is called.
- !! Provisoire
- PUBLIC IONEWFLU,UPCASE,INITIO_ll,OPEN_ll,CLOSE_ll,FLUSH_ll,GLOBAL,SPECIFIC
+ PUBLIC IONEWFLU,UPCASE,INITIO_ll,OPEN_ll,CLOSE_ll,FLUSH_ll
PUBLIC SET_CONFIO_ll,GCONFIO
!JUANZ
PUBLIC io_file,io_rank
diff --git a/src/MNH/ch_aer_mod_init.f90 b/src/MNH/ch_aer_mod_init.f90
index b7c4797dd..7b9bf947b 100644
--- a/src/MNH/ch_aer_mod_init.f90
+++ b/src/MNH/ch_aer_mod_init.f90
@@ -85,7 +85,7 @@ INTEGER :: ILU ! logical unit
IF (CMINERAL == 'NARES') THEN
! .. the file ares.w contains the weights of the model
CALL OPEN_ll(UNIT=ILU,FILE="ares1A.w",IOSTAT=IRESP,FORM='FORMATTED',ACTION='READ', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!OPEN(1,FILE="ares1A.w",STATUS="OLD")
READ(ILU,*) I1IA,J1JA,K1KA
DO JI=1,I1IA
@@ -104,7 +104,7 @@ IF (CMINERAL == 'NARES') THEN
!
!OPEN(1,FILE="ares1C.w",STATUS="OLD")
CALL OPEN_ll(UNIT=ILU,FILE="ares1C.w",IOSTAT=IRESP,FORM='FORMATTED',ACTION='READ', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
READ(ILU,*) I1IC,J1JC,K1KC
DO JI=1,I1IC
@@ -122,7 +122,7 @@ IF (CMINERAL == 'NARES') THEN
CALL CLOSE_ll("ares1C.w",IOSTAT=IRESP)
!
CALL OPEN_ll(UNIT=ILU,FILE="ares2A.w",IOSTAT=IRESP,FORM='FORMATTED',ACTION='READ', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!OPEN(1,FILE="ares2A.w",STATUS="OLD")
READ(ILU,*) I2IA,J2JA,K2KA
DO JI=1,I2IA
@@ -140,7 +140,7 @@ IF (CMINERAL == 'NARES') THEN
CALL CLOSE_ll("ares2A.w",IOSTAT=IRESP)
!
CALL OPEN_ll(UNIT=ILU,FILE="ares2B.w",IOSTAT=IRESP,FORM='FORMATTED',ACTION='READ', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!OPEN(1,FILE="ares2B.w",STATUS="OLD")
READ(ILU,*) I2IB,J2JB,K2KB
DO JI=1,I2IB
@@ -158,7 +158,7 @@ IF (CMINERAL == 'NARES') THEN
CALL CLOSE_ll("ares2B.w",IOSTAT=IRESP)
!
CALL OPEN_ll(UNIT=ILU,FILE="ares2C.w",IOSTAT=IRESP,FORM='FORMATTED',ACTION='READ', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!OPEN(1,FILE="ares2C.w",STATUS="OLD")
READ(ILU,*) I2IC,J2JC,K2KC
DO JI=1,I2IC
@@ -185,7 +185,7 @@ IF (CMINERAL == 'TABUL') THEN
IF(.NOT.ALLOCATED(zni)) ALLOCATE(zni(22))
IF(.NOT.ALLOCATED(zf)) ALLOCATE(zf(16,11,22,22,22,3))
CALL OPEN_ll(UNIT=ILU,FILE="AEROMIN_NEW",IOSTAT=IRESP,FORM='FORMATTED',ACTION='READ', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
WRITE(*,*) 'LOADING MINERAL AEROSOL DATA ...'
DO JI=1,nh
diff --git a/src/MNH/ch_open_input.f90 b/src/MNH/ch_open_input.f90
index ebaaf78c1..c3b9001fb 100644
--- a/src/MNH/ch_open_input.f90
+++ b/src/MNH/ch_open_input.f90
@@ -98,7 +98,7 @@ INTEGER :: IFAIL ! return code from OPEN_ll
! -----------------------
!
IF (KVERB >= 5) WRITE(KLUOUT,*) "CH_OPEN_INPUT: opening file ", HCHEM_INPUT_FILE
-CALL OPEN_ll(UNIT=KCHANNEL,FILE=HCHEM_INPUT_FILE,IOSTAT=IFAIL ,MODE=GLOBAL, &
+CALL OPEN_ll(UNIT=KCHANNEL,FILE=HCHEM_INPUT_FILE,IOSTAT=IFAIL ,MODE='GLOBAL', &
POSITION='REWIND', ACTION='READ', STATUS='OLD', FORM='FORMATTED')
!
IF (IFAIL /= 0) THEN
diff --git a/src/MNH/diag.f90 b/src/MNH/diag.f90
index 6731fb90a..57d1784f9 100644
--- a/src/MNH/diag.f90
+++ b/src/MNH/diag.f90
@@ -375,7 +375,7 @@ XISOTH(:)=0.
!
YNAM = 'DIAG1.nam'
CALL OPEN_ll (UNIT=ILUNAM,FILE=YNAM,IOSTAT=IRESP,STATUS="OLD",ACTION='READ', &
- FORM="FORMATTED",POSITION="REWIND",MODE=GLOBAL)
+ FORM="FORMATTED",POSITION="REWIND",MODE='GLOBAL')
!
!
CALL POSNAM(ILUNAM,'NAM_DIAG',GFOUND)
diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90
index 2669e0891..398af9c81 100644
--- a/src/MNH/ini_segn.f90
+++ b/src/MNH/ini_segn.f90
@@ -266,7 +266,7 @@ WRITE(YMI,'(I2.0)') KMI
HLUOUT='OUTPUT_LISTING'//ADJUSTL(YMI)
CALL OPEN_ll(UNIT=ILUOUT,FILE=HLUOUT,IOSTAT=IRESP,FORM='FORMATTED',ACTION='WRITE', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!
WRITE(UNIT=ILUOUT,FMT='(50("*"),/,"*",17X,"MODEL ",I1," LISTING",16X,"*",/, &
& 50("*"))') KMI
@@ -275,7 +275,7 @@ IF (CPROGRAM=='MESONH') THEN
YEXSEG='EXSEG'//TRIM(ADJUSTL(YMI))//'.nam'
CALL OPEN_ll(UNIT=ILUSEG,FILE=YEXSEG,IOSTAT=IRESP,ACTION='READ', &
- DELIM='QUOTE',MODE=GLOBAL)
+ DELIM='QUOTE',MODE='GLOBAL')
!
!* 1.3 SPAWNING or SPEC or REAL program case
! ---------------------
diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90
index 6297e1c78..8581cf671 100644
--- a/src/MNH/init_mnh.f90
+++ b/src/MNH/init_mnh.f90
@@ -138,7 +138,7 @@ CHARACTER(LEN=4), DIMENSION(:), POINTER :: DPTR_CLBCX,DPTR_CLBCY
IF (CPROGRAM/='REAL ') THEN
CLUOUT0 = 'OUTPUT_LISTING0'
CALL OPEN_ll(UNIT=ILUOUT0,FILE=CLUOUT0,IOSTAT=IRESP,FORM='FORMATTED', &
- ACTION='WRITE',MODE=GLOBAL)
+ ACTION='WRITE',MODE='GLOBAL')
ELSE
CALL FMLOOK_ll(CLUOUT0,CLUOUT0,ILUOUT0,IRESP)
END IF
diff --git a/src/MNH/latlon_to_xy.f90 b/src/MNH/latlon_to_xy.f90
index 15576bde3..6cce16a6d 100644
--- a/src/MNH/latlon_to_xy.f90
+++ b/src/MNH/latlon_to_xy.f90
@@ -128,7 +128,7 @@ CALL INI_CST
CALL INITIO_ll()
!
CALL OPEN_ll(UNIT=INAM,FILE='LATLON2XY1.nam',IOSTAT=IRESP,ACTION='READ', &
- DELIM='QUOTE',MODE=GLOBAL)
+ DELIM='QUOTE',MODE='GLOBAL')
READ(INAM,NAM_INIFILE)
!
READ(INAM,NAM_CONFIO)
diff --git a/src/MNH/mnhopen_namelist.f90 b/src/MNH/mnhopen_namelist.f90
index 3de6bb798..130b16abf 100644
--- a/src/MNH/mnhopen_namelist.f90
+++ b/src/MNH/mnhopen_namelist.f90
@@ -127,7 +127,7 @@ ELSE
END IF
!
CALL OPEN_ll(KLUNAM,FILE=CNAM,IOSTAT=IRESP,ACTION='READ', &
- FORM="FORMATTED",POSITION="REWIND",MODE=GLOBAL)
+ FORM="FORMATTED",POSITION="REWIND",MODE='GLOBAL')
!
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/mnhopen_write_cover_tex.f90 b/src/MNH/mnhopen_write_cover_tex.f90
index 6ac2d580f..0a7a89941 100644
--- a/src/MNH/mnhopen_write_cover_tex.f90
+++ b/src/MNH/mnhopen_write_cover_tex.f90
@@ -68,7 +68,7 @@ CHARACTER(LEN=20) :: YTEX ! name of tex file
IF (CPROGRAM =='PGD ') THEN
YTEX='class_cover_data.tex'
CALL OPEN_ll(unit=KTEX,file=YTEX,iostat=IRESP,action='WRITE', &
- form='FORMATTED',position="REWIND",mode=GLOBAL)
+ form='FORMATTED',position="REWIND",mode='GLOBAL')
ELSE
KTEX=0
END IF
diff --git a/src/MNH/mode_time.f90 b/src/MNH/mode_time.f90
index 84cc9ef8d..45ca1d909 100644
--- a/src/MNH/mode_time.f90
+++ b/src/MNH/mode_time.f90
@@ -135,10 +135,7 @@ ZSECOND = MOD(ZREMAIN,60.)
! -----------------------
!
CALL FMLOOK_ll(HLUOUT,HLUOUT,ILUOUT,IRESP)
-IF (IRESP /= 0) THEN
- CALL OPEN_ll(UNIT=ILUOUT,FILE=HLUOUT,IOSTAT=IRESP,FORM='FORMATTED',ACTION='WRITE', &
- MODE=GLOBAL)
-END IF
+!
IF (PRESENT(HTITLE)) THEN
IF ((TPDATETIME%TDATE%YEAR < 0).OR.(TPDATETIME%TDATE%MONTH < 0).OR. &
(TPDATETIME%TDATE%DAY < 0) ) THEN
diff --git a/src/MNH/open_data_files.f90 b/src/MNH/open_data_files.f90
index 324847f82..eaaa5a1ea 100644
--- a/src/MNH/open_data_files.f90
+++ b/src/MNH/open_data_files.f90
@@ -93,10 +93,10 @@ IF (HFILETYPE=='MESONH') THEN
CALL FMOPEN_ll(HFILENAME,'READ',0,2,5,ININAR,IRESP)
ELSE IF (HFILETYPE=='BINLLV') THEN
CALL OPEN_ll(UNIT=IGLB,FILE=HFILENAME,IOSTAT=IRESP,STATUS="OLD",ACTION='READ', &
- FORM="UNFORMATTED", POSITION="REWIND",MODE=GLOBAL)
+ FORM="UNFORMATTED", POSITION="REWIND",MODE='GLOBAL')
ELSE IF (HFILETYPE=='LATLON') THEN
CALL OPEN_ll(UNIT=IGLB,FILE=HFILENAME,STATUS="OLD",IOSTAT=IRESP,FORM="FORMATTED", &
- POSITION="REWIND",ACTION='READ',MODE=GLOBAL)
+ POSITION="REWIND",ACTION='READ',MODE='GLOBAL')
ENDIF
!
!* 2. Open the local file
@@ -112,10 +112,10 @@ IF (HLOCFILENAME == HFILENAME) THEN
END IF
IF (HFILETYPE=='BINLLV') THEN
CALL OPEN_ll(UNIT=ILOC,FILE=HLOCFILENAME,STATUS="NEW",IOSTAT=IRESP,FORM="UNFORMATTED", &
- POSITION="REWIND",ACTION="WRITE", MODE=GLOBAL)
+ POSITION="REWIND",ACTION="WRITE", MODE='GLOBAL')
ELSE IF (HFILETYPE=='LATLON') THEN
CALL OPEN_ll(UNIT=ILOC,FILE=HLOCFILENAME,STATUS="NEW",IOSTAT=IRESP,FORM="FORMATTED", &
- POSITION="REWIND",ACTION="WRITE", MODE=GLOBAL)
+ POSITION="REWIND",ACTION="WRITE", MODE='GLOBAL')
ENDIF
!
IF (HFILETYPE=='MESONH') THEN
diff --git a/src/MNH/open_file_mnh.f90 b/src/MNH/open_file_mnh.f90
index 86461def0..9f4589ecd 100644
--- a/src/MNH/open_file_mnh.f90
+++ b/src/MNH/open_file_mnh.f90
@@ -87,15 +87,15 @@ CFILE = HFILE
!
IF (HFORM=='FORMATTED') THEN
CALL OPEN_ll(UNIT=KUNIT,FILE=HFILE,IOSTAT=IRESP,ACTION=HACTION, &
- FORM=HFORM, MODE=GLOBAL )
+ FORM=HFORM, MODE='GLOBAL' )
ELSE
IF (HACCESS=='DIRECT') THEN
CALL OPEN_ll(UNIT=KUNIT,FILE=HFILE,IOSTAT=IRESP,ACTION=HACTION, &
FORM=HFORM,ACCESS=HACCESS,RECL=KRECL, &
- MODE=GLOBAL )
+ MODE='GLOBAL' )
ELSE
CALL OPEN_ll(UNIT=KUNIT,FILE=HFILE,IOSTAT=IRESP,ACTION=HACTION, &
- FORM=HFORM, MODE=GLOBAL )
+ FORM=HFORM, MODE='GLOBAL' )
END IF
END IF
!
diff --git a/src/MNH/open_luoutn.f90 b/src/MNH/open_luoutn.f90
index c54f61eb9..6cbab5f6b 100644
--- a/src/MNH/open_luoutn.f90
+++ b/src/MNH/open_luoutn.f90
@@ -88,7 +88,7 @@ INTEGER :: ILUOUT ! logical unit for listing file for model _n
!
CLUOUT=HLUOUT
CALL OPEN_ll(UNIT=ILUOUT,FILE=CLUOUT,IOSTAT=IRESP,FORM='FORMATTED',ACTION='WRITE', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/open_nestpgd_files.f90 b/src/MNH/open_nestpgd_files.f90
index c239d3fc2..86896e7dc 100644
--- a/src/MNH/open_nestpgd_files.f90
+++ b/src/MNH/open_nestpgd_files.f90
@@ -160,7 +160,7 @@ CLUOUT0='OUTPUT_LISTING0'
! -------------------
!
CALL OPEN_ll(UNIT=ILUOUT0,FILE=CLUOUT0,IOSTAT=IRESP,FORM='FORMATTED',ACTION='WRITE', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!
!-------------------------------------------------------------------------------
!
@@ -168,7 +168,7 @@ CALL OPEN_ll(UNIT=ILUOUT0,FILE=CLUOUT0,IOSTAT=IRESP,FORM='FORMATTED',ACTION='WRI
! -----------------------------
!
CALL OPEN_ll(UNIT=IPRE_NEST_PGD,FILE=HPRE_NEST_PGD,IOSTAT=IRESP,FORM='FORMATTED',ACTION='READ', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!reading of NAM_CONFZ
CALL FMLOOK_ll(HPRE_NEST_PGD,HPRE_NEST_PGD,ILUOUT,IRESP)
CALL POSNAM(IPRE_NEST_PGD,'NAM_CONFZ',GFOUND)
diff --git a/src/MNH/open_prc_files.f90 b/src/MNH/open_prc_files.f90
index 4d41d1db5..b6e20d86a 100644
--- a/src/MNH/open_prc_files.f90
+++ b/src/MNH/open_prc_files.f90
@@ -174,7 +174,7 @@ CLUOUT = CLUOUT0
! -----------------------------------
!
CALL OPEN_ll(UNIT=ILUOUT0,FILE=CLUOUT0,IOSTAT=IRESP,FORM='FORMATTED',ACTION='WRITE', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!
IF (NVERB>=5) WRITE(ILUOUT0,*) 'Routine OPEN_PRC_FILES started'
!-------------------------------------------------------------------------------
@@ -183,7 +183,7 @@ IF (NVERB>=5) WRITE(ILUOUT0,*) 'Routine OPEN_PRC_FILES started'
! -------------------------
!
CALL OPEN_ll(UNIT=IPRE_REAL1,FILE=HPRE_REAL1,IOSTAT=IRESP,ACTION='READ', &
- DELIM='QUOTE',MODE=GLOBAL,STATUS='OLD')
+ DELIM='QUOTE',MODE='GLOBAL',STATUS='OLD')
IF (IRESP.NE.0 ) THEN
PRINT "(' STOP :: Routine OPEN_PRC_FILES :: IRESP=',I6,' --> file PRE_REAL1.nam not found ')", IRESP
!callabortstop
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 06849375f..6f33b988d 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -677,9 +677,9 @@ CLUOUT = 'OUTPUT_LISTING1'
CLUOUT0 = CLUOUT
CEXPRE = 'PRE_IDEA1.nam'
CALL OPEN_ll(UNIT=NLUOUT,FILE=CLUOUT,IOSTAT=NRESP,FORM='FORMATTED',ACTION='WRITE', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
CALL OPEN_ll(UNIT=NLUPRE,FILE=CEXPRE,IOSTAT=NRESP,ACTION='READ', &
- DELIM='QUOTE',MODE=GLOBAL)
+ DELIM='QUOTE',MODE='GLOBAL')
!
!* 3.2 read in NLUPRE the namelist informations
!
diff --git a/src/MNH/prep_pgd.f90 b/src/MNH/prep_pgd.f90
index 33121d0be..1bf38ed17 100644
--- a/src/MNH/prep_pgd.f90
+++ b/src/MNH/prep_pgd.f90
@@ -162,11 +162,11 @@ NHALO=15
CLUOUT0='OUTPUT_LISTING0' ! Name of the output-listing.
!
CALL OPEN_ll(UNIT=ILUOUT0,FILE=CLUOUT0,IOSTAT=IRESP, &
- FORM='FORMATTED',ACTION='WRITE',MODE=GLOBAL)
+ FORM='FORMATTED',ACTION='WRITE',MODE='GLOBAL')
!
!JUAN
CALL OPEN_ll(UNIT=ILUNAM,FILE='PRE_PGD1.nam',IOSTAT=IRESP, &
- FORM='FORMATTED',ACTION='READ',STATUS='OLD',MODE=GLOBAL)
+ FORM='FORMATTED',ACTION='READ',STATUS='OLD',MODE='GLOBAL')
IF (IRESP.NE.0 ) THEN
PRINT "('PREP_PGD :: IRESP=',I6,' --> file PRE_PGD1.nam not found ')", IRESP
!callabortstop
diff --git a/src/MNH/radar_scattering.f90 b/src/MNH/radar_scattering.f90
index 991a500e2..29269bbdd 100644
--- a/src/MNH/radar_scattering.f90
+++ b/src/MNH/radar_scattering.f90
@@ -631,7 +631,7 @@ DO JI=1,INBRAD
E12.5,2X,E12.5,2X,E12.5,2X,E12.5,2X,E12.5)
!rain
- CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(1),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE=GLOBAL)
+ CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(1),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE='GLOBAL')
IF ( IRESP /= 0 ) THEN
WRITE(ILUOUT0,*) "STOP : PROBLEM OPENING FILE : ", YFILE_COEFINT(1)
CALL CLOSE_ll(CLUOUT0,IOSTAT=IRESP)
@@ -657,7 +657,7 @@ DO JI=1,INBRAD
ZIM_S22S11_T_R(ILINE),ZRE_S22FMS11FT_T_R(ILINE),ZIM_S22FT_T_R(ILINE),ZIM_S11FT_T_R(ILINE)
!snow
- CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(2),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE=GLOBAL)
+ CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(2),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE='GLOBAL')
IF ( IRESP /= 0 ) THEN
WRITE(ILUOUT0,*) "STOP : PROBLEM OPENING FILE : ", YFILE_COEFINT(2)
CALL CLOSE_ll(CLUOUT0,IOSTAT=IRESP)
@@ -683,7 +683,7 @@ DO JI=1,INBRAD
ZIM_S22S11_T_S(ILINE),ZRE_S22FMS11FT_T_S(ILINE),ZIM_S22FT_T_S(ILINE),ZIM_S11FT_T_S(ILINE)
!graupel
- CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(3),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE=GLOBAL)
+ CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(3),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE='GLOBAL')
IF ( IRESP /= 0 ) THEN
WRITE(ILUOUT0,*) "STOP : PROBLEM OPENING FILE : ", YFILE_COEFINT(3)
CALL CLOSE_ll(CLUOUT0,IOSTAT=IRESP)
@@ -709,7 +709,7 @@ DO JI=1,INBRAD
ZIM_S22S11_T_G(ILINE),ZRE_S22FMS11FT_T_G(ILINE),ZIM_S22FT_T_G(ILINE),ZIM_S11FT_T_G(ILINE)
!wet graupel
- CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(4),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE=GLOBAL)
+ CALL OPEN_ll(UNIT=IUNIT,FILE=YFILE_COEFINT(4),FORM="FORMATTED",ACCESS="SEQUENTIAL",ACTION="READ",IOSTAT=IRESP,MODE='GLOBAL')
IF ( IRESP /= 0 ) THEN
WRITE(ILUOUT0,*) "STOP : PROBLEM OPENING FILE : ", YFILE_COEFINT(4)
CALL CLOSE_ll(CLUOUT0,IOSTAT=IRESP)
diff --git a/src/MNH/read_all_data_mesonh_case.f90 b/src/MNH/read_all_data_mesonh_case.f90
index 2eb30cc31..3f0280a2d 100644
--- a/src/MNH/read_all_data_mesonh_case.f90
+++ b/src/MNH/read_all_data_mesonh_case.f90
@@ -231,7 +231,7 @@ CINIFILE=HFMFILE
CALL CLOSE_ll(HPRE_REAL1, IOSTAT=IRESP)
CALL INIT_MNH
CALL OPEN_ll(UNIT=IPRE_REAL1,FILE=HPRE_REAL1,IOSTAT=IRESP,ACTION='READ', &
- DELIM='QUOTE',MODE=GLOBAL,STATUS='OLD')
+ DELIM='QUOTE',MODE='GLOBAL',STATUS='OLD')
!
CINIFILE=YOUTFILE
!
diff --git a/src/MNH/read_exspa.f90 b/src/MNH/read_exspa.f90
index 3dccbc013..0d3137fc6 100644
--- a/src/MNH/read_exspa.f90
+++ b/src/MNH/read_exspa.f90
@@ -202,11 +202,11 @@ YDADSPAFILE = ' '
!
LUNIT_MODEL(2)%CLUOUT = 'OUTPUT_LISTING2'
CALL OPEN_ll(UNIT=ILUOUT,FILE=LUNIT_MODEL(2)%CLUOUT,IOSTAT=IRESP,FORM='FORMATTED',ACTION='WRITE', &
- MODE=GLOBAL)
+ MODE='GLOBAL')
!
YEXSPA = 'SPAWN1.nam'
CALL OPEN_ll(unit=ILUSPA,FILE=YEXSPA,iostat=IRESP,status="OLD",action='READ', &
- form='FORMATTED',position="REWIND",mode=GLOBAL)
+ form='FORMATTED',position="REWIND",mode='GLOBAL')
!
!
!* 2. read the EXSPA file :
diff --git a/src/MNH/reset_exseg.f90 b/src/MNH/reset_exseg.f90
index 65875578b..d7da3f6da 100644
--- a/src/MNH/reset_exseg.f90
+++ b/src/MNH/reset_exseg.f90
@@ -99,7 +99,7 @@ INTEGER :: ILENCH ! ILENCH : length of comment string
!
YNAM = 'DIAG1.nam'
CALL OPEN_ll (UNIT=ILUNAM,FILE=YNAM,IOSTAT=IRESP,STATUS="OLD",ACTION='READ', &
- FORM="FORMATTED",POSITION="REWIND",MODE=GLOBAL)
+ FORM="FORMATTED",POSITION="REWIND",MODE='GLOBAL')
!
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/set_subdomain.f90 b/src/MNH/set_subdomain.f90
index 9a3077015..0564def4c 100644
--- a/src/MNH/set_subdomain.f90
+++ b/src/MNH/set_subdomain.f90
@@ -181,7 +181,7 @@ NYOR=NUNDEF
! ----------------------------
!
CALL OPEN_ll(UNIT=ILUNAM,FILE=HNAMELIST,IOSTAT=IRESP, &
- FORM='FORMATTED',ACTION='READ',MODE=GLOBAL)
+ FORM='FORMATTED',ACTION='READ',MODE='GLOBAL')
CALL POSNAM(ILUNAM,'NAM_MESONH_DOM',GFOUND,ILUOUT0)
IF (GFOUND) THEN
NIMAX=NIMAX_n ; NJMAX=NJMAX_n
diff --git a/src/MNH/spawning.f90 b/src/MNH/spawning.f90
index 6fae90b5e..af2400ea9 100644
--- a/src/MNH/spawning.f90
+++ b/src/MNH/spawning.f90
@@ -181,7 +181,7 @@ CALL READ_EXSPA(CINIFILE,CINIFILEPGD,&
!
YEXSPA = 'SPAWN1.nam'
CALL OPEN_ll(unit=ILUSPA,FILE=YEXSPA,iostat=IRESP,status="OLD",action='READ', &
- form='FORMATTED',position="REWIND",mode=GLOBAL)
+ form='FORMATTED',position="REWIND",mode='GLOBAL')
CALL FMLOOK_ll(CLUOUT,CLUOUT,ILUOUT,IRESP)
!
CALL INIT_NMLVAR
@@ -227,7 +227,7 @@ CALL MPPDB_CHECK3D(XUT,"SPAWNING-after boundaries::XUT",PRECISION)
! --------------------------------
!
CALL OPEN_ll(unit=ILUSPA,FILE=YEXSPA,iostat=IRESP,status="OLD",action='READ', &
- form='FORMATTED',position="REWIND",mode=GLOBAL)
+ form='FORMATTED',position="REWIND",mode='GLOBAL')
CALL FMLOOK_ll(CLUOUT,CLUOUT,ILUOUT,IRESP)
CALL SET_POINTERS_TO_MODEL1()
CALL GOTO_MODEL(2)
diff --git a/src/MNH/spectre.f90 b/src/MNH/spectre.f90
index d342be18e..0e77a8562 100644
--- a/src/MNH/spectre.f90
+++ b/src/MNH/spectre.f90
@@ -120,7 +120,7 @@ PRINT*, ' '
!
YNAM = 'SPEC1.nam'
CALL OPEN_ll (UNIT=ILUNAM,FILE=YNAM,IOSTAT=IRESP,STATUS="OLD",ACTION='READ', &
- FORM="FORMATTED",POSITION="REWIND",MODE=GLOBAL)
+ FORM="FORMATTED",POSITION="REWIND",MODE='GLOBAL')
!
PRINT*, 'READ THE SPEC1.NAM FILE'
!
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 3ab7b0367..70db528d8 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -3401,7 +3401,7 @@ IF(LRADAR .AND. LUSERR) THEN
INT(ANINT(10.*XELEV(JI,JEL))-10*INT(XELEV(JI,JEL)))
DO JJ=1,SIZE(ZWORK42(:,:,:,:,:),5)
YRS="P"//YRAD(JJ)//CNAME_RAD(JI)(1:3)//YELEV//TRIM(TPFILE%CNAME)
- CALL OPEN_ll(UNIT=ILURS,FILE=YRS,IOSTAT=IRESP,ACTION='WRITE',MODE=GLOBAL)
+ CALL OPEN_ll(UNIT=ILURS,FILE=YRS,IOSTAT=IRESP,ACTION='WRITE',MODE='GLOBAL')
DO JH=1,NBAZIM
DO JV=1,NBSTEPMAX+1
WRITE(ILURS,"(F15.7)") ZWORK42_BIS(JI,JEL,JH,JV,JJ)
diff --git a/src/MNH/write_ts1d.f90 b/src/MNH/write_ts1d.f90
index 2061fbf8a..51b1d2945 100644
--- a/src/MNH/write_ts1d.f90
+++ b/src/MNH/write_ts1d.f90
@@ -235,7 +235,7 @@ DO JN=1,NBPROF
(JINDEX >= 1).AND.(JINDEX <= IJU)) THEN
! write picasso def-file
IF (GSFIRSTCALL) THEN
- CALL OPEN_ll(UNIT=ISIO1D,FILE=YSIO1DDEF,IOSTAT=IFAIL ,MODE=GLOBAL, &
+ CALL OPEN_ll(UNIT=ISIO1D,FILE=YSIO1DDEF,IOSTAT=IFAIL ,MODE='GLOBAL', &
POSITION='REWIND',ACTION='WRITE',STATUS='NEW',FORM='FORMATTED')
! write comment
@@ -282,7 +282,7 @@ DO JN=1,NBPROF
CALL TRANSFER_FILE('fujitransfer.x','NIL',YSIO1DDEF)
! open picasso dat-file
- CALL OPEN_ll(UNIT=ISIO1D,FILE=YSIO1DDAT,IOSTAT=IFAIL ,MODE=GLOBAL, &
+ CALL OPEN_ll(UNIT=ISIO1D,FILE=YSIO1DDAT,IOSTAT=IFAIL ,MODE='GLOBAL', &
POSITION='REWIND',ACTION='WRITE',STATUS='NEW',FORM='FORMATTED')
! calculate ISSKIP
diff --git a/src/MNH/xy_to_latlon.f90 b/src/MNH/xy_to_latlon.f90
index c9b422184..40ee6f0d2 100644
--- a/src/MNH/xy_to_latlon.f90
+++ b/src/MNH/xy_to_latlon.f90
@@ -127,7 +127,7 @@ CALL INI_CST
CALL INITIO_ll()
!
CALL OPEN_ll(UNIT=INAM,FILE='XY2LATLON1.nam',IOSTAT=IRESP,ACTION='READ', &
- DELIM='QUOTE',MODE=GLOBAL)
+ DELIM='QUOTE',MODE='GLOBAL')
READ(INAM,NAM_INIFILE)
READ(INAM,NAM_CONFIO)
CALL SET_CONFIO_ll()
diff --git a/src/MNH/zoom_pgd.f90 b/src/MNH/zoom_pgd.f90
index 784ed9e96..b784803b7 100644
--- a/src/MNH/zoom_pgd.f90
+++ b/src/MNH/zoom_pgd.f90
@@ -129,12 +129,12 @@ CALL INITIO_ll()
CLUOUT0='OUTPUT_LISTING0' ! name of the output-listing
!
CALL OPEN_ll(UNIT=ILUOUT0,FILE=CLUOUT0,IOSTAT=IRESP, &
- FORM='FORMATTED',ACTION='WRITE',MODE=GLOBAL)
+ FORM='FORMATTED',ACTION='WRITE',MODE='GLOBAL')
!
YNAMELIST = 'PRE_ZOOM1.nam' ! name of the namelist file
CALL OPEN_ll(UNIT=ILUNAM,FILE=YNAMELIST,IOSTAT=IRESP, &
- FORM='FORMATTED',ACTION='READ',MODE=GLOBAL)
+ FORM='FORMATTED',ACTION='READ',MODE='GLOBAL')
!
CPGDFILE = 'PGDFILE' ! name of the input file
YZOOMFILE = ''
--
GitLab