fixes #309

Author: bena-nasa

interp_restarts.F90

@@ -45,7 +45,6 @@ program interp_restarts
 
    real(ESMF_KIND_R8), allocatable :: r8_ak(:)
    real(ESMF_KIND_R8), allocatable :: r8_bk(:)
-   real(ESMF_KIND_R8), allocatable :: r8_akbk(:)
 
    real(ESMF_KIND_R4), pointer :: r4_local(:,:,:)
    real(ESMF_KIND_R8), pointer :: r8_local(:,:,:), pt_local(:,:,:)
@@ -276,7 +275,6 @@ program interp_restarts
    call set_eta(npz,ks,ptop,pint,r8_ak,r8_bk)
    FV_Atm(1)%ak = r8_ak
    FV_Atm(1)%bk = r8_bk
-   deallocate ( r8_ak,r8_bk )
    nq = nmoist
    FV_Atm(1)%ncnst = nq/km
    if( is_master() ) then
@@ -468,12 +466,8 @@ program interp_restarts
 
 
 ! AK and BK
-      allocate ( r8_akbk(npz+1) )
-      r8_akbk = FV_Atm(1)%ak
-      if (AmWriter) call MAPL_VarWrite(OutFmt,"AK",r8_akbk)
-      r8_akbk = FV_Atm(1)%bk
-      if (AmWriter) call MAPL_VarWrite(OutFmt,"BK",r8_akbk)
-      deallocate ( r8_akbk )
+      if (AmWriter) call MAPL_VarWrite(OutFmt,"AK",r8_ak)
+      if (AmWriter) call MAPL_VarWrite(OutFmt,"BK",r8_bk)
 
       allocate(r8_local(is:ie,js:je,npz+1))