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

Dm update wut #9

Merged
merged 8 commits into from
Apr 6, 2023
Merged

Dm update wut #9

Changes from 1 commit
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
9b83c8c
fix - gnu and pgi issue with class(*) in send_data3d (#1149)
nikizadehgfdl Mar 9, 2023
9339b88
feat: extend `string` interface in `fms_string_utils_mod` (#1142)
J-Lentz Mar 9, 2023
0ff254e
fix: add omp directives for race condition in tridiagonal (#1109)
ganganoaa Mar 9, 2023
6362657
fix: missing if statement in PR #1149 (#1155)
nikizadehgfdl Mar 13, 2023
7188e3a
fix: time_manager missing changes from year to yr, month to mo, day t…
mlee03 Mar 28, 2023
8a78fac
chore: update changelog and version numbers for release (#1167)
rem1776 Apr 3, 2023
003b8e1
chore: append dev to version number post-release (#1179)
github-actions[bot] Apr 6, 2023
e30e4e6
Merge branch 'main' of https://github.com/NOAA-GFDL/FMS into dmUpdate…
uramirez8707 Apr 6, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
fix: time_manager missing changes from year to yr, month to mo, day t… 
…o dy (NOAA-GFDL#1169)
  • Loading branch information
@mlee03
mlee03 authored Mar 28, 2023
commit 7188e3a2e634376da74c3e4247bc9b487ef52700
6 changes: 3 additions & 3 deletions time_interp/time_interp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -391,7 +391,7 @@ subroutine time_interp_month ( Time, weight, year1, year2, month1, month2 )
! mid point of current month in seconds
mid_month = days_in_month(Time) * halfday
! time into current month in seconds
cur_month = second + secmin*minute + sechour*hour + secday*(day-1)
cur_month = second + secmin*minute + sechour*hour + secday*(dy-1)

if ( cur_month >= mid_month ) then
! current time is after mid point of current month
Expand Down Expand Up @@ -466,8 +466,8 @@ subroutine time_interp_day ( Time, weight, year1, year2, month1, month2, day1, d
endif
else
! current time is before mid point of day
year2 = year; month2 = month; day2 = day
year1 = year; month1 = month; day1 = day - 1
year2 = yr; month2 = mo ; day2 = dy
year1 = yr; month1 = mo; day1 = dy - 1
weight = real(sday + halfday) / real(secday)

if (day1 < 1) then
Expand Down