Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

bug fix for wdet100 #380

Merged
merged 8 commits into from Mar 23, 2023
Merged

bug fix for wdet100 #380

Changes from all commits
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
af74062
Merge pull request #2 from mom-ocean/master
russfiedler Feb 6, 2019
be677db
optimise tidal mixing
Feb 5, 2019
4fa03a9
Merge pull request #3 from mom-ocean/master
russfiedler Mar 13, 2019
31f38bb
Merge branch 'master' of github.com:russfiedler/mom
Mar 13, 2019
56a932a
Merge pull request #4 from mom-ocean/master
russfiedler Jul 17, 2019
0a7c461
Merge branch 'master' of github.com:russfiedler/mom
Jul 17, 2019
9184265
Merge remote-tracking branch 'origin/master' into HEAD
Mar 16, 2023
e442988
Fix bug for bgc diagnostic wdet100 (this affects cycle4 output wdet10…
Mar 16, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/mom5/ocean_csiro_bgc/csiro_bgc.F90
View file
Open in desktop
Expand Up @@ -1978,7 +1978,7 @@ subroutine csiro_bgc_source(isc, iec, jsc, jec, isd, ied, jsd, jed, T_prog, grid

!det export at 100 m
if (id_wdet100 .gt. 0) then
wdet100(:,:) = wdetbio(isc:iec,jsc:jec)*t_prog(ind_det)%field(isc:iec,jsc:jec,minloc(grid%zt(:)-100,dim=1),time%taum1)
wdet100(:,:) = wdetbio(isc:iec,jsc:jec)*t_prog(ind_det)%field(isc:iec,jsc:jec,minloc(abs(grid%zt(:)-100),dim=1),time%taum1)
used = send_data(id_wdet100, wdet100(isc:iec,jsc:jec), &
time%model_time, rmask = grid%tmask(isc:iec,jsc:jec,1))
endif
Expand Down