Another edit to the if statement logic.

MetOffice · Oct 4, 2023 · 0578f73 · 0578f73
1 parent 2a88f13
commit 0578f73
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/opsinputs/opsinputs_fill_mod.F90 b/src/opsinputs/opsinputs_fill_mod.F90
@@ -1123,7 +1123,7 @@ subroutine opsinputs_fill_fillreal2d_norecords( &
 	end if
       end if
     else
-      if (present(sizeVarObs)) then
+      if (present(sizeVarObs)) then      
         if (sizeVarObs > size(channels)) then
           if (compressChannels) then
             offsetsize = sizeVarObs - size(channels)
@@ -1135,12 +1135,12 @@ subroutine opsinputs_fill_fillreal2d_norecords( &
               Real2(:, Channels(iChannel)) = VarValue
             end where
           end if
+	else
+	  where (VarValue /= MissingDouble)
+            Real2(:, iChannel) = VarValue
+          end where
 	end if
-      else
-        where (VarValue /= MissingDouble)
-          Real2(:, iChannel) = VarValue
-        end where
-      end if ! the end     
+      end if ! the end    
     end if
   end do
 end if ! Data not present? OPS will produce a warning -- we don't need to duplicate it.