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
mom-ocean · May 4, 2015 · 6c14478 · 6c14478
1 parent 08367b4
commit 6c14478
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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.