Protect access to fptr() pointer even more strongly (since NAG does n…

…ot like it).
esmf-org · Oct 25, 2024 · a6e7c07 · a6e7c07
1 parent 4f27d4a
commit a6e7c07
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/AtmOcnScalarProto/atm.F90 b/AtmOcnScalarProto/atm.F90
@@ -307,9 +307,9 @@ subroutine Advance(model, rc)
       file=__FILE__)) &
       return  ! bail out
     ! access the scalars through a 1D array
-    scalars => fptr(:,1)
     if (size(fptr)>0) then
       ! only use fptr on that PET which holds allocation
+      scalars => fptr(:,1)
       do i=lbound(scalars,1), ubound(scalars,1)
         scalars(i)=(i-1)*10+step
       enddo