From 7ecb6f52766a1a5ad97b05337d250ea5e2f5c4be Mon Sep 17 00:00:00 2001 From: DJDavies2 Date: Sun, 5 Apr 2026 09:23:19 +0100 Subject: [PATCH] Fix intent --- src/opsinputs/opsinputs_fill_mod.F90 | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/src/opsinputs/opsinputs_fill_mod.F90 b/src/opsinputs/opsinputs_fill_mod.F90 index 82adf87c..411cdb14 100644 --- a/src/opsinputs/opsinputs_fill_mod.F90 +++ b/src/opsinputs/opsinputs_fill_mod.F90 @@ -964,7 +964,7 @@ subroutine opsinputs_fill_fillreal( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping -real(real64), pointer, intent(out) :: Real1(:) +real(real64), pointer, intent(inout) :: Real1(:) type(c_ptr), value, intent(in) :: ObsSpace character(len=*), intent(in) :: JediVarName character(len=*), intent(in) :: JediVarGroup @@ -1051,7 +1051,7 @@ subroutine opsinputs_fill_fillreal2d_norecords( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName integer(integer64), intent(in) :: NumObs -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(c_ptr), value, intent(in) :: ObsSpace integer(c_int), intent(in) :: Channels(:) character(len=*), intent(in) :: JediVarName @@ -1179,7 +1179,7 @@ subroutine opsinputs_fill_fillreal2d_records( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(c_ptr), value, intent(in) :: ObsSpace integer(integer64), intent(in) :: VarobsLength character(len=*), intent(in) :: JediVarName @@ -1269,7 +1269,7 @@ subroutine opsinputs_fill_fillreal2d( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(c_ptr), value, intent(in) :: ObsSpace integer(c_int), intent(in) :: Channels(:) integer(integer64), intent(in) :: VarobsLength @@ -1354,7 +1354,7 @@ subroutine opsinputs_fill_fillrealfromgeoval( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName integer(integer64), intent(in) :: NumObs -real(real64), pointer, intent(out) :: Real1(:) +real(real64), pointer, intent(inout) :: Real1(:) type(ufo_geovals), intent(in) :: GeoVals character(len=*), intent(in) :: JediVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping @@ -1443,7 +1443,7 @@ subroutine opsinputs_fill_fillreal2dfromgeoval( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName integer(integer64), intent(in) :: NumObs -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(ufo_geovals), intent(in) :: GeoVals logical, intent(in) :: GeoVaLsAreTopToBottom character(len=*), intent(in) :: JediVarName @@ -1578,7 +1578,7 @@ subroutine opsinputs_fill_fillreal2dfromhofx( & ! Subroutine arguments: type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping real(c_double), intent(in) :: hofx(:) character(len=*), intent(in) :: JediVarName @@ -1654,7 +1654,7 @@ subroutine opsinputs_fill_fillrealfromgeovalformultilevelobs( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName integer(integer64), intent(in) :: NumObs -real(real64), pointer, intent(out) :: Real1(:) +real(real64), pointer, intent(inout) :: Real1(:) character(len=*), intent(in) :: JediVarName type(ufo_geovals), intent(in) :: GeoVals type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping @@ -1718,7 +1718,7 @@ subroutine opsinputs_fill_fillreal2dfromgeovalformultilevelobs( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName integer(integer64), intent(in) :: NumObs -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) character(len=*), intent(in) :: JediVarName type(ufo_geovals), intent(in) :: GeoVals logical, intent(in) :: GeoVaLsAreTopToBottom @@ -1875,7 +1875,7 @@ subroutine opsinputs_fill_fillinteger2d( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping -integer(integer64), pointer, intent(out) :: Int2(:,:) +integer(integer64), pointer, intent(inout) :: Int2(:,:) type(c_ptr), value, intent(in) :: ObsSpace integer(c_int), intent(in) :: Channels(:) integer(integer64), intent(in) :: VarobsLength @@ -2049,7 +2049,7 @@ subroutine opsinputs_fill_filltimeoffsets( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping -real(real64), pointer, intent(out) :: Real1(:) +real(real64), pointer, intent(inout) :: Real1(:) type(c_ptr), value, intent(in) :: ObsSpace character(len=*), intent(in) :: JediVarName character(len=*), intent(in) :: JediVarGroup @@ -2125,7 +2125,7 @@ subroutine opsinputs_fill_filltimeoffsets2d_norecords( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName integer(integer64), intent(in) :: NumObs -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(c_ptr), value, intent(in) :: ObsSpace integer(c_int), intent(in) :: Channels(:) character(len=*), intent(in) :: JediVarName @@ -2200,7 +2200,7 @@ subroutine opsinputs_fill_filltimeoffsets2d_records( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(c_ptr), value, intent(in) :: ObsSpace integer(integer64), intent(in) :: VarobsLength character(len=*), intent(in) :: JediVarName @@ -2297,7 +2297,7 @@ subroutine opsinputs_fill_filltimeoffsets2d( & type(ElementHeader_Type), intent(inout) :: Hdr character(len=*), intent(in) :: OpsVarName type(opsinputs_jeditoopslayoutmapping), intent(in) :: JediToOpsLayoutMapping -real(real64), pointer, intent(out) :: Real2(:,:) +real(real64), pointer, intent(inout) :: Real2(:,:) type(c_ptr), value, intent(in) :: ObsSpace integer(c_int), intent(in) :: Channels(:) integer(integer64), intent(in) :: VarobsLength