Skip to content

Commit

Permalink
Merge pull request #487 from jedwards4b/fix/aoflux_merge_error
Browse files Browse the repository at this point in the history
fix an error in the aoflux wind_gust fields
  • Loading branch information
jedwards4b authored Jul 25, 2024
2 parents 10ffcc8 + fdb9e0e commit 4520051
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions mediator/med_phases_aofluxes_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1721,8 +1721,6 @@ subroutine set_aoflux_out_pointers(fldbun, lsize, aoflux_out, xgrid, rc)
call fldbun_getfldptr(fldbun, 'So_duu10n', aoflux_out%duu10n, xgrid=xgrid, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return

call fldbun_getfldptr(fldbun, 'So_ugustOut', aoflux_out%ugust_out, xgrid=xgrid, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return
call fldbun_getfldptr(fldbun, 'So_u10withGust', aoflux_out%u10_withGust, xgrid=xgrid, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return
call fldbun_getfldptr(fldbun, 'So_u10res', aoflux_out%u10res, xgrid=xgrid, rc=rc)
Expand Down Expand Up @@ -1752,7 +1750,6 @@ subroutine set_aoflux_out_pointers(fldbun, lsize, aoflux_out, xgrid, rc)
allocate(aoflux_out%evap_18O(lsize)); aoflux_out%evap_18O(:) = 0._R8
allocate(aoflux_out%evap_HDO(lsize)); aoflux_out%evap_HDO(:) = 0._R8
end if

if (add_gusts) then
call fldbun_getfldptr(fldbun, 'So_ugustOut', aoflux_out%ugust_out, xgrid=xgrid, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return
Expand Down

0 comments on commit 4520051

Please sign in to comment.