remove an allocatable pointer in transportmod

Now an allocatable pointer is replaced with a target type.
All tests passed with OSX gnu 8 compilers.

Author: jinyuntang

src/betr/betr_core/TransportMod.F90

@@ -1153,18 +1153,14 @@ subroutine backward_advection(zi, us,  dtime, zold, bstatus)
      real(r8):: time
      character(len=32) :: subname = 'backward_advection'
      class(gbetr_type), pointer :: gtype
-     type(extra_type), pointer :: extra_inst
+     type(extra_type), target :: extra_inst
      integer :: nl
 
      call bstatus%reset()
      SHR_ASSERT_ALL((size(zi)        == size(us)),     errMsg(filename,__LINE__),bstatus)
 
      SHR_ASSERT_ALL((size(zi)        == size(zold)+4), errMsg(filename,__LINE__), bstatus)
 
-     nullify(Extra_inst)
-
-     allocate(Extra_inst) ! => create_extra_type()
-
      gtype=> extra_inst
      nl = size(zi)
      call InitAllocate(gtype, 1, nl)
@@ -1182,7 +1178,7 @@ subroutine backward_advection(zi, us,  dtime, zold, bstatus)
      endif
 
      call DDeallocate(gtype)
-     nullify(Extra_inst)
+
 
    end subroutine backward_advection