Commit 3398f5d9 authored by Marco Govoni's avatar Marco Govoni
Browse files

Merge branch 'misc_fixes' into 'develop'

Misc fixes

See merge request west-devel/West!30
parents b21607c8 e23d27a0
...@@ -169,6 +169,8 @@ MODULE class_coulomb ...@@ -169,6 +169,8 @@ MODULE class_coulomb
USE gvect, ONLY : g, ngm USE gvect, ONLY : g, ngm
USE types_bz_grid, ONLY : q_grid USE types_bz_grid, ONLY : q_grid
! !
IMPLICIT NONE
!
! I/O ! I/O
! !
CLASS(coulomb) :: this CLASS(coulomb) :: this
...@@ -304,6 +306,8 @@ MODULE class_coulomb ...@@ -304,6 +306,8 @@ MODULE class_coulomb
USE io_global, ONLY : stdout USE io_global, ONLY : stdout
USE types_bz_grid, ONLY : q_grid USE types_bz_grid, ONLY : q_grid
! !
IMPLICIT NONE
!
! I/O ! I/O
! !
CLASS(coulomb) :: this CLASS(coulomb) :: this
......
...@@ -57,6 +57,7 @@ MODULE west_io ...@@ -57,6 +57,7 @@ MODULE west_io
! CHECK IF FILE IS PRESENT ! CHECK IF FILE IS PRESENT
! !
LOGICAL FUNCTION file_is_present(lproc,fname,suffix) LOGICAL FUNCTION file_is_present(lproc,fname,suffix)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
CHARACTER(*),INTENT(IN) :: suffix CHARACTER(*),INTENT(IN) :: suffix
...@@ -78,6 +79,7 @@ MODULE west_io ...@@ -78,6 +79,7 @@ MODULE west_io
! WRITE I0 ! WRITE I0
! !
SUBROUTINE serial_i0_data_write(lproc,iunit,fname,i0dummy) SUBROUTINE serial_i0_data_write(lproc,iunit,fname,i0dummy)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -101,6 +103,7 @@ MODULE west_io ...@@ -101,6 +103,7 @@ MODULE west_io
! WRITE I1 ! WRITE I1
! !
SUBROUTINE serial_i1_data_write(lproc,iunit,fname,i1dummy,n) SUBROUTINE serial_i1_data_write(lproc,iunit,fname,i1dummy,n)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -128,6 +131,7 @@ MODULE west_io ...@@ -128,6 +131,7 @@ MODULE west_io
! WRITE I2 ! WRITE I2
! !
SUBROUTINE serial_i2_data_write(lproc,iunit,fname,i2dummy,n,m) SUBROUTINE serial_i2_data_write(lproc,iunit,fname,i2dummy,n,m)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -158,6 +162,7 @@ MODULE west_io ...@@ -158,6 +162,7 @@ MODULE west_io
! WRITE I3 ! WRITE I3
! !
SUBROUTINE serial_i3_data_write(lproc,iunit,fname,i3dummy,n,m,l) SUBROUTINE serial_i3_data_write(lproc,iunit,fname,i3dummy,n,m,l)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -191,6 +196,7 @@ MODULE west_io ...@@ -191,6 +196,7 @@ MODULE west_io
! WRITE I4 ! WRITE I4
! !
SUBROUTINE serial_i4_data_write(lproc,iunit,fname,i4dummy,n,m,l,q) SUBROUTINE serial_i4_data_write(lproc,iunit,fname,i4dummy,n,m,l,q)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -227,6 +233,7 @@ MODULE west_io ...@@ -227,6 +233,7 @@ MODULE west_io
! WRITE D0 ! WRITE D0
! !
SUBROUTINE serial_d0_data_write(lproc,iunit,fname,d0dummy) SUBROUTINE serial_d0_data_write(lproc,iunit,fname,d0dummy)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -252,6 +259,7 @@ MODULE west_io ...@@ -252,6 +259,7 @@ MODULE west_io
! WRITE D1 ! WRITE D1
! !
SUBROUTINE serial_d1_data_write(lproc,iunit,fname,d1dummy,n) SUBROUTINE serial_d1_data_write(lproc,iunit,fname,d1dummy,n)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -278,6 +286,7 @@ MODULE west_io ...@@ -278,6 +286,7 @@ MODULE west_io
! WRITE D2 ! WRITE D2
! !
SUBROUTINE serial_d2_data_write(lproc,iunit,fname,d2dummy,n,m) SUBROUTINE serial_d2_data_write(lproc,iunit,fname,d2dummy,n,m)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -304,6 +313,7 @@ MODULE west_io ...@@ -304,6 +313,7 @@ MODULE west_io
! WRITE D3 ! WRITE D3
! !
SUBROUTINE serial_d3_data_write(lproc,iunit,fname,d3dummy,n,m,l) SUBROUTINE serial_d3_data_write(lproc,iunit,fname,d3dummy,n,m,l)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -330,6 +340,7 @@ MODULE west_io ...@@ -330,6 +340,7 @@ MODULE west_io
! WRITE D4 ! WRITE D4
! !
SUBROUTINE serial_d4_data_write(lproc,iunit,fname,d4dummy,n,m,l,q) SUBROUTINE serial_d4_data_write(lproc,iunit,fname,d4dummy,n,m,l,q)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -356,6 +367,7 @@ MODULE west_io ...@@ -356,6 +367,7 @@ MODULE west_io
! WRITE Z0 ! WRITE Z0
! !
SUBROUTINE serial_z0_data_write(lproc,iunit,fname,z0dummy) SUBROUTINE serial_z0_data_write(lproc,iunit,fname,z0dummy)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -381,6 +393,7 @@ MODULE west_io ...@@ -381,6 +393,7 @@ MODULE west_io
! WRITE Z1 ! WRITE Z1
! !
SUBROUTINE serial_z1_data_write(lproc,iunit,fname,z1dummy,n) SUBROUTINE serial_z1_data_write(lproc,iunit,fname,z1dummy,n)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -407,6 +420,7 @@ MODULE west_io ...@@ -407,6 +420,7 @@ MODULE west_io
! WRITE Z2 ! WRITE Z2
! !
SUBROUTINE serial_z2_data_write(lproc,iunit,fname,z2dummy,n,m) SUBROUTINE serial_z2_data_write(lproc,iunit,fname,z2dummy,n,m)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -433,6 +447,7 @@ MODULE west_io ...@@ -433,6 +447,7 @@ MODULE west_io
! WRITE Z3 ! WRITE Z3
! !
SUBROUTINE serial_z3_data_write(lproc,iunit,fname,z3dummy,n,m,l) SUBROUTINE serial_z3_data_write(lproc,iunit,fname,z3dummy,n,m,l)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -459,6 +474,7 @@ MODULE west_io ...@@ -459,6 +474,7 @@ MODULE west_io
! WRITE Z4 ! WRITE Z4
! !
SUBROUTINE serial_z4_data_write(lproc,iunit,fname,z4dummy,n,m,l,q) SUBROUTINE serial_z4_data_write(lproc,iunit,fname,z4dummy,n,m,l,q)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -491,6 +507,7 @@ MODULE west_io ...@@ -491,6 +507,7 @@ MODULE west_io
! READ I0 ! READ I0
! !
SUBROUTINE serial_i0_data_read(lproc,iunit,fname,i0dummy) SUBROUTINE serial_i0_data_read(lproc,iunit,fname,i0dummy)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -514,6 +531,7 @@ MODULE west_io ...@@ -514,6 +531,7 @@ MODULE west_io
! READ I1 ! READ I1
! !
SUBROUTINE serial_i1_data_read(lproc,iunit,fname,i1dummy,n) SUBROUTINE serial_i1_data_read(lproc,iunit,fname,i1dummy,n)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -541,6 +559,7 @@ MODULE west_io ...@@ -541,6 +559,7 @@ MODULE west_io
! READ I2 ! READ I2
! !
SUBROUTINE serial_i2_data_read(lproc,iunit,fname,i2dummy,n,m) SUBROUTINE serial_i2_data_read(lproc,iunit,fname,i2dummy,n,m)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -571,6 +590,7 @@ MODULE west_io ...@@ -571,6 +590,7 @@ MODULE west_io
! READ I3 ! READ I3
! !
SUBROUTINE serial_i3_data_read(lproc,iunit,fname,i3dummy,n,m,l) SUBROUTINE serial_i3_data_read(lproc,iunit,fname,i3dummy,n,m,l)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -604,6 +624,7 @@ MODULE west_io ...@@ -604,6 +624,7 @@ MODULE west_io
! READ I4 ! READ I4
! !
SUBROUTINE serial_i4_data_read(lproc,iunit,fname,i4dummy,n,m,l,q) SUBROUTINE serial_i4_data_read(lproc,iunit,fname,i4dummy,n,m,l,q)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -640,6 +661,7 @@ MODULE west_io ...@@ -640,6 +661,7 @@ MODULE west_io
! READ D0 ! READ D0
! !
SUBROUTINE serial_d0_data_read(lproc,iunit,fname,d0dummy) SUBROUTINE serial_d0_data_read(lproc,iunit,fname,d0dummy)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -665,6 +687,7 @@ MODULE west_io ...@@ -665,6 +687,7 @@ MODULE west_io
! READ D1 ! READ D1
! !
SUBROUTINE serial_d1_data_read(lproc,iunit,fname,d1dummy,n) SUBROUTINE serial_d1_data_read(lproc,iunit,fname,d1dummy,n)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -691,6 +714,7 @@ MODULE west_io ...@@ -691,6 +714,7 @@ MODULE west_io
! READ D2 ! READ D2
! !
SUBROUTINE serial_d2_data_read(lproc,iunit,fname,d2dummy,n,m) SUBROUTINE serial_d2_data_read(lproc,iunit,fname,d2dummy,n,m)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -717,6 +741,7 @@ MODULE west_io ...@@ -717,6 +741,7 @@ MODULE west_io
! READ D3 ! READ D3
! !
SUBROUTINE serial_d3_data_read(lproc,iunit,fname,d3dummy,n,m,l) SUBROUTINE serial_d3_data_read(lproc,iunit,fname,d3dummy,n,m,l)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -743,6 +768,7 @@ MODULE west_io ...@@ -743,6 +768,7 @@ MODULE west_io
! READ D4 ! READ D4
! !
SUBROUTINE serial_d4_data_read(lproc,iunit,fname,d4dummy,n,m,l,q) SUBROUTINE serial_d4_data_read(lproc,iunit,fname,d4dummy,n,m,l,q)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -769,6 +795,7 @@ MODULE west_io ...@@ -769,6 +795,7 @@ MODULE west_io
! READ Z0 ! READ Z0
! !
SUBROUTINE serial_z0_data_read(lproc,iunit,fname,z0dummy) SUBROUTINE serial_z0_data_read(lproc,iunit,fname,z0dummy)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -794,6 +821,7 @@ MODULE west_io ...@@ -794,6 +821,7 @@ MODULE west_io
! READ Z1 ! READ Z1
! !
SUBROUTINE serial_z1_data_read(lproc,iunit,fname,z1dummy,n) SUBROUTINE serial_z1_data_read(lproc,iunit,fname,z1dummy,n)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -820,6 +848,7 @@ MODULE west_io ...@@ -820,6 +848,7 @@ MODULE west_io
! READ Z2 ! READ Z2
! !
SUBROUTINE serial_z2_data_read(lproc,iunit,fname,z2dummy,n,m) SUBROUTINE serial_z2_data_read(lproc,iunit,fname,z2dummy,n,m)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -846,6 +875,7 @@ MODULE west_io ...@@ -846,6 +875,7 @@ MODULE west_io
! READ Z3 ! READ Z3
! !
SUBROUTINE serial_z3_data_read(lproc,iunit,fname,z3dummy,n,m,l) SUBROUTINE serial_z3_data_read(lproc,iunit,fname,z3dummy,n,m,l)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -872,6 +902,7 @@ MODULE west_io ...@@ -872,6 +902,7 @@ MODULE west_io
! READ Z4 ! READ Z4
! !
SUBROUTINE serial_z4_data_read(lproc,iunit,fname,z4dummy,n,m,l,q) SUBROUTINE serial_z4_data_read(lproc,iunit,fname,z4dummy,n,m,l,q)
IMPLICIT NONE
LOGICAL,INTENT(IN) :: lproc LOGICAL,INTENT(IN) :: lproc
INTEGER,INTENT(IN) :: iunit INTEGER,INTENT(IN) :: iunit
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
...@@ -905,6 +936,7 @@ MODULE west_io ...@@ -905,6 +936,7 @@ MODULE west_io
! !
SUBROUTINE parallel_i1_data_write(fname,i1dummy,nloc,offset,comm) SUBROUTINE parallel_i1_data_write(fname,i1dummy,nloc,offset,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: offset INTEGER,INTENT(IN) :: offset
...@@ -932,6 +964,7 @@ MODULE west_io ...@@ -932,6 +964,7 @@ MODULE west_io
! !
SUBROUTINE parallel_i1_irrdata_write(fname,i1dummy,nloc,map,comm) SUBROUTINE parallel_i1_irrdata_write(fname,i1dummy,nloc,map,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: map(nloc) INTEGER,INTENT(IN) :: map(nloc)
...@@ -986,6 +1019,7 @@ MODULE west_io ...@@ -986,6 +1019,7 @@ MODULE west_io
! !
SUBROUTINE parallel_d1_data_write(fname,d1dummy,nloc,offset,comm) SUBROUTINE parallel_d1_data_write(fname,d1dummy,nloc,offset,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: offset INTEGER,INTENT(IN) :: offset
...@@ -1013,6 +1047,7 @@ MODULE west_io ...@@ -1013,6 +1047,7 @@ MODULE west_io
! !
SUBROUTINE parallel_d1_irrdata_write(fname,d1dummy,nloc,map,comm) SUBROUTINE parallel_d1_irrdata_write(fname,d1dummy,nloc,map,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: map(nloc) INTEGER,INTENT(IN) :: map(nloc)
...@@ -1040,6 +1075,7 @@ MODULE west_io ...@@ -1040,6 +1075,7 @@ MODULE west_io
! !
SUBROUTINE parallel_z1_data_write(fname,z1dummy,nloc,offset,comm) SUBROUTINE parallel_z1_data_write(fname,z1dummy,nloc,offset,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: offset INTEGER,INTENT(IN) :: offset
...@@ -1067,6 +1103,7 @@ MODULE west_io ...@@ -1067,6 +1103,7 @@ MODULE west_io
! !
SUBROUTINE parallel_z1_irrdata_write(fname,z1dummy,nloc,map,comm) SUBROUTINE parallel_z1_irrdata_write(fname,z1dummy,nloc,map,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: map(nloc) INTEGER,INTENT(IN) :: map(nloc)
...@@ -1095,6 +1132,7 @@ MODULE west_io ...@@ -1095,6 +1132,7 @@ MODULE west_io
! !
SUBROUTINE parallel_i1_data_read(fname,i1dummy,nloc,offset,comm) SUBROUTINE parallel_i1_data_read(fname,i1dummy,nloc,offset,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: offset INTEGER,INTENT(IN) :: offset
...@@ -1121,6 +1159,7 @@ MODULE west_io ...@@ -1121,6 +1159,7 @@ MODULE west_io
! !
SUBROUTINE parallel_i1_irrdata_read(fname,i1dummy,nloc,map,comm) SUBROUTINE parallel_i1_irrdata_read(fname,i1dummy,nloc,map,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: map(nloc) INTEGER,INTENT(IN) :: map(nloc)
...@@ -1148,6 +1187,7 @@ MODULE west_io ...@@ -1148,6 +1187,7 @@ MODULE west_io
! !
SUBROUTINE parallel_d1_data_read(fname,d1dummy,nloc,offset,comm) SUBROUTINE parallel_d1_data_read(fname,d1dummy,nloc,offset,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: offset INTEGER,INTENT(IN) :: offset
...@@ -1174,6 +1214,7 @@ MODULE west_io ...@@ -1174,6 +1214,7 @@ MODULE west_io
! !
SUBROUTINE parallel_d1_irrdata_read(fname,d1dummy,nloc,map,comm) SUBROUTINE parallel_d1_irrdata_read(fname,d1dummy,nloc,map,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: map(nloc) INTEGER,INTENT(IN) :: map(nloc)
...@@ -1201,6 +1242,7 @@ MODULE west_io ...@@ -1201,6 +1242,7 @@ MODULE west_io
! !
SUBROUTINE parallel_z1_data_read(fname,z1dummy,nloc,offset,comm) SUBROUTINE parallel_z1_data_read(fname,z1dummy,nloc,offset,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: offset INTEGER,INTENT(IN) :: offset
...@@ -1227,6 +1269,7 @@ MODULE west_io ...@@ -1227,6 +1269,7 @@ MODULE west_io
! !
SUBROUTINE parallel_z1_irrdata_read(fname,z1dummy,nloc,map,comm) SUBROUTINE parallel_z1_irrdata_read(fname,z1dummy,nloc,map,comm)
USE parallel_include USE parallel_include
IMPLICIT NONE
CHARACTER(*),INTENT(IN) :: fname CHARACTER(*),INTENT(IN) :: fname
INTEGER,INTENT(IN) :: nloc INTEGER,INTENT(IN) :: nloc
INTEGER,INTENT(IN) :: map(nloc) INTEGER,INTENT(IN) :: map(nloc)
......
...@@ -22,6 +22,8 @@ MODULE pdep_db ...@@ -22,6 +22,8 @@ MODULE pdep_db
CONTAINS CONTAINS
! !
SUBROUTINE generate_pdep_fname( fname, j, iq) SUBROUTINE generate_pdep_fname( fname, j, iq)
!
IMPLICIT NONE
! !
! I/O ! I/O
! !
......
...@@ -38,6 +38,8 @@ MODULE pdep_io ...@@ -38,6 +38,8 @@ MODULE pdep_io
USE mp_wave, ONLY : mergewf USE mp_wave, ONLY : mergewf
USE mp, ONLY : mp_bcast, mp_max USE mp, ONLY : mp_bcast, mp_max
! !
IMPLICIT NONE