Fix write_incr (NOAA-EMC#559)

TingLei-daprediction · May 23, 2023 · 60d3aa8 · 60d3aa8
1 parent 0fee5e3
commit 60d3aa8
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/enkf/write_fv3reg_restarts.f90 b/src/enkf/write_fv3reg_restarts.f90
@@ -77,9 +77,8 @@ subroutine write_fv3_restart_data3d(varname,filename,file_id,data_arr)
 !clt                          ubound(data_arr,3):lbound(data_arr,3):-1)
        call nc_check( nf90_inq_varid(file_id,trim(adjustl(varname)),var_id),&
        myname_,'inq_varid '//trim(adjustl(varname))//' '//trim(filename) )
-       call nc_check( nf90_put_var(file_id,var_id,data_tmp),&
+       call nc_check( nf90_put_var(file_id,var_id,data_arr),&
        myname_,'get_var '//trim(adjustl(varname))//' '//trim(filename) )
-       deallocate(data_tmp)
     end subroutine write_fv3_restart_data3d
 
     subroutine write_fv3_restart_data4d(varname,filename,file_id,data_arr)
@@ -119,9 +118,8 @@ subroutine write_fv3_restart_data4d(varname,filename,file_id,data_arr)
 !inconsitency in read part has been fixed
        call nc_check( nf90_inq_varid(file_id,trim(adjustl(varname)),var_id),&
        myname_,'inq_varid '//trim(adjustl(varname))//' '//trim(filename) )
-       call nc_check( nf90_put_var(file_id,var_id,data_tmp),&
+       call nc_check( nf90_put_var(file_id,var_id,data_arr),&
        myname_,'get_var '//trim(adjustl(varname))//' '//trim(filename) )
-       deallocate(data_tmp)
     end subroutine write_fv3_restart_data4d
 
     end module write_fv3regional_restarts