Opened 14 years ago
Closed 14 years ago
#653 closed Bug (fixed)
bad test if( llprev .AND. sdjf%num == 0 ) in fldread.F90
Reported by: | flavoni | Owned by: | nemo |
---|---|---|---|
Priority: | highest | Milestone: | |
Component: | OCE | Version: | v3.2 |
Severity: | Keywords: | ||
Cc: |
Description
in fldread.F90 there is bad test in fld_init SUBROUTINE:
"IF( llprev .AND. sdjf%num == 0 ) THEN"
but in this way it does not work in interannual case, if previous year does not exist.
Change test in this way:
"IF( llprev .AND. sdjf%num <= 0 ) THEN"
Commit History (2)
Changeset | Author | Time | ChangeLog |
---|---|---|---|
1826 | rblod | 2010-04-06T12:39:38+02:00 | fldread for interannual, see ticket #653 |
1817 | rblod | 2010-03-25T12:53:00+01:00 | Correct pathologic case in fld_init, see ticket #653 |
Change History (3)
comment:1 Changed 14 years ago by rblod
- Resolution set to fixed
- Status changed from new to closed
comment:2 Changed 14 years ago by flavoni
- Resolution fixed deleted
- Status changed from closed to reopened
comment:3 Changed 14 years ago by rblod
- Resolution set to fixed
- Status changed from reopened to closed
Note: See
TracTickets for help on using
tickets.
Bad test ALSO for last year (if next year does not exist)
change IF( sd(jf)%num == 0 .AND. .NOT. llstop ) THEN ! next year file does not exist
into
Simona