When removing patches, set null pointers to the end-points.

NGEET · Apr 27, 2018 · b92e726 · b92e726
1 parent 4209292
commit b92e726
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/biogeochem/EDPatchDynamicsMod.F90 b/biogeochem/EDPatchDynamicsMod.F90
@@ -1665,6 +1665,7 @@ subroutine fuse_2_patches(csite, dp, rp)
        ! to be set, and it is set as the patch older than dp.  That patch
        ! already knows it's older patch (so no need to set or change it)
        csite%youngest_patch => olderp
+       olderp%younger       => null()
     end if
 
 
@@ -1676,6 +1677,7 @@ subroutine fuse_2_patches(csite, dp, rp)
        ! to be set, and it is set as the patch younger than dp.  That patch already
        ! knows it's younger patch, no need to set
        csite%oldest_patch => youngerp
+       youngerp%older     => null()
     end if