From a6e7c0776ed1964e2d5f64eb73425a8879d01c25 Mon Sep 17 00:00:00 2001
From: Gerhard Theurich <theurich@sourcespring.net>
Date: Fri, 25 Oct 2024 13:25:30 -0400
Subject: [PATCH] Protect access to fptr() pointer even more strongly (since
 NAG does not like it).

---
 AtmOcnScalarProto/atm.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/AtmOcnScalarProto/atm.F90 b/AtmOcnScalarProto/atm.F90
index f607a68..5a80f79 100644
--- 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