Skip to content

Commit

Permalink
Take out the intent(out) attribute for the setup_linhx subroutine in
Browse files Browse the repository at this point in the history
observer_fv3reg.f90 to address build warning messages.
  • Loading branch information
BinLiu-NOAA committed Apr 9, 2024
1 parent 3f532b6 commit c948d26
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/enkf/observer_fv3reg.f90
Original file line number Diff line number Diff line change
Expand Up @@ -52,8 +52,8 @@ subroutine setup_linhx(rlat, rlon, time, ix, delx, ixp, delxp, iy, dely, &
! Declare passed variables
real(r_single) ,intent(in ) :: rlat, rlon ! observation lat and lon in radians
real(r_single) ,intent(in ) :: time ! observation time relative to middle of window
integer(i_kind), intent(out) :: ix, iy, it, ixp, iyp, itp
real(r_kind), intent(out) :: delx, dely, delxp, delyp, delt, deltp
integer(i_kind) :: ix, iy, it, ixp, iyp, itp
real(r_kind) :: delx, dely, delxp, delyp, delt, deltp
write(6,*)'this is a dummy subroutine, running this means something wrong ,stop'
call stop2(555)

Expand Down

0 comments on commit c948d26

Please sign in to comment.