Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
G
GOSI9esm
Manage
Activity
Members
Code
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Locked files
Deploy
Releases
Package Registry
Model registry
Operate
Terraform modules
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Consortium Members
UKMO
GOSI
GOSI9esm
Commits
168adddf
Commit
168adddf
authored
1 year ago
by
Guillaume Samson
Browse files
Options
Downloads
Patches
Plain Diff
Merge branch 'issue_#305' into 'branch_4.2'
parent
9ae0cdfa
No related branches found
Branches containing commit
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/OCE/SBC/fldread.F90
+3
-1
3 additions, 1 deletion
src/OCE/SBC/fldread.F90
with
3 additions
and
1 deletion
src/OCE/SBC/fldread.F90
+
3
−
1
View file @
168adddf
...
...
@@ -793,6 +793,7 @@ CONTAINS
! previous file parameters
IF
(
llprev
)
THEN
IF
(
sdjf
%
clftyp
(
1
:
4
)
==
'week'
)
THEN
! find the day of the beginning of previous week
isecwk
=
ksec_week
(
sdjf
%
clftyp
(
6
:
8
)
)
! seconds between the beginning of the week and half of current time step
isecwk
=
isecwk
+
7
*
idaysec
! seconds between the beginning of previous week and half of the time step
llprevmt
=
isecwk
>
nsec_month
! longer time since beginning of the previous week than the current month
llprevyr
=
llprevmt
.AND.
nmonth
==
1
...
...
@@ -813,8 +814,9 @@ CONTAINS
! next file parameters
IF
(
llnext
)
THEN
IF
(
sdjf
%
clftyp
(
1
:
4
)
==
'week'
)
THEN
! find the day of the beginning of next week
isecwk
=
ksec_week
(
sdjf
%
clftyp
(
6
:
8
)
)
! seconds between the beginning of the week and half of current time step
isecwk
=
7
*
idaysec
-
isecwk
! seconds between half of the time step and the beginning of next week
llnextmt
=
isecwk
>
(
nmonth_len
(
nmonth
)
*
idaysec
-
nsec_month
)
! larger than the seconds to the end of the month
llnextmt
=
isecwk
>
=
(
nmonth_len
(
nmonth
)
*
idaysec
-
nsec_month
)
! larger than the seconds to the end of the month
llnextyr
=
llnextmt
.AND.
nmonth
==
12
iyr
=
nyear
+
COUNT
((/
llnextyr
/))
imt
=
nmonth
+
COUNT
((/
llnextmt
/))
-
12
*
COUNT
((/
llnextyr
/))
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment