New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
#653 (bad test if( llprev .AND. sdjf%num == 0 ) in fldread.F90) – NEMO

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)

ChangesetAuthorTimeChangeLog
1826rblod2010-04-06T12:39:38+02:00

fldread for interannual, see ticket #653

1817rblod2010-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

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

IF( sd(jf)%num <= 0 .AND. .NOT. llstop ) THEN ! next year file does not exist

Simona

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.