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.
Changeset 1491 – NEMO

Changeset 1491


Ignore:
Timestamp:
2009-07-17T10:23:33+02:00 (15 years ago)
Author:
smasson
Message:

minor bugfix in the use of ldstop in fld_init, see ticket:472

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/fldread.F90

    r1319 r1491  
    344344         llprev = llprevyr .OR. llprevmth 
    345345 
    346          CALL fld_clopn( sdjf, nyear - COUNT((/llprevyr/)), nmonth - COUNT((/llprevmth/)) + 12 * COUNT((/llprevyr/)), llprev ) 
     346         CALL fld_clopn( sdjf, nyear - COUNT((/llprevyr/)), nmonth - COUNT((/llprevmth/)) + 12 * COUNT((/llprevyr/)), .NOT. llprev ) 
    347347 
    348348         ! if previous year/month file is not existing, we switch to the current year/month 
Note: See TracChangeset for help on using the changeset viewer.