Ignore:
Timestamp:
2013-03-27T11:03:54+01:00 (8 years ago)
Author:
smasson
Message:

trunk: bugfix in fldread when nn_fsbc * rn_rdt > frcing file period, see #958

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/SAS_SRC/daymod.F90

    r3334 r3851  
    161161         IF ( nleapy == 1 ) THEN   ! we are using calandar with leap years 
    162162            IF ( MOD(nyear-1, 4) == 0 .AND. ( MOD(nyear-1, 400) == 0 .OR. MOD(nyear-1, 100) /= 0 ) ) THEN 
    163                nyear_len(0) = 366 
    164             ENDIF 
    165             IF ( MOD(nyear, 4) == 0 .AND. ( MOD(nyear, 400) == 0 .OR. MOD(nyear, 100) /= 0 ) ) THEN 
     163               nyear_len(0)  = 366 
     164            ENDIF 
     165            IF ( MOD(nyear  , 4) == 0 .AND. ( MOD(nyear  , 400) == 0 .OR. MOD(nyear  , 100) /= 0 ) ) THEN 
    166166               nmonth_len(2) = 29 
    167                nyear_len(1) = 366 
     167               nyear_len(1)  = 366 
     168            ENDIF 
     169            IF ( MOD(nyear+1, 4) == 0 .AND. ( MOD(nyear+1, 400) == 0 .OR. MOD(nyear+1, 100) /= 0 ) ) THEN 
     170               nyear_len(2)  = 366 
    168171            ENDIF 
    169172         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.