From 6c14478ef1c711bf7b3abdb34e415b4c64e10a9e Mon Sep 17 00:00:00 2001
From: Nicholas Hannah <nh@nh.id.au>
Date: Mon, 4 May 2015 11:59:14 -0700
Subject: [PATCH] Nullify diagnostic arrays. This is necessary because
 safe_alloc_ptr() checks whether or not an array is associated. e.g. if the
 array has not been nullified safe_alloc_ptr() may not allocate it. Closes
 #149

---
 src/core/MOM_barotropic.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/MOM_barotropic.F90 b/src/core/MOM_barotropic.F90
index d155df1dcc..50da9a5ac1 100644
--- a/src/core/MOM_barotropic.F90
+++ b/src/core/MOM_barotropic.F90
@@ -197,7 +197,7 @@ module MOM_barotropic
   real ALLOCABLE_, dimension(NIMEMBW_,NJMEMBW_) :: &
     q_D             ! f / D at PV points, in m-1 s-1.
 
-  real, pointer, dimension(:,:,:) :: frhatu1, frhatv1 ! Predictor values.
+  real, pointer, dimension(:,:,:) :: frhatu1 => NULL(), frhatv1 => NULL() ! Predictor values.
 
   real    :: Rho0            !   The density used in the Boussinesq
                              ! approximation, in kg m-3.