Changeset 5751


Ignore:
Timestamp:
2015-09-16T12:00:20+02:00 (5 years ago)
Author:
jpaul
Message:

fix tipying error, see ticket #1598

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r5749 r5751  
    815815         imonth = kmonth 
    816816         iday = kday 
    817          IF ( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of 
    818          the beginning of the week 
     817         IF ( sdjf%cltype(1:4) == 'week' ) THEN             ! find the day of the beginning of the week 
    819818            isec_week = ksec_week( sdjf%cltype(6:8) )- (86400 * 8 )   
    820             llprevmth  = isec_week > nsec_month             ! longer time since 
    821             beginning of the week than the month 
     819            llprevmth  = isec_week > nsec_month             ! longer time since beginning of the week than the month 
    822820            llprevyr   = llprevmth .AND. nmonth == 1 
    823821            iyear  = nyear  - COUNT((/llprevyr /)) 
    824822            imonth = nmonth - COUNT((/llprevmth/)) + 12 * COUNT((/llprevyr /)) 
    825             iday   = nday   + nmonth_len(nmonth-1) * COUNT((/llprevmth/)) - 
    826             isec_week / NINT(rday) 
     823            iday   = nday   + nmonth_len(nmonth-1) * COUNT((/llprevmth/)) - isec_week / NINT(rday) 
    827824         ENDIF 
    828825      ELSE                                                  ! use current day values 
Note: See TracChangeset for help on using the changeset viewer.