Changeset 12300


Ignore:
Timestamp:
2020-01-06T09:31:02+01:00 (3 weeks ago)
Author:
cetlod
Message:

Minor fix on CFC to avoid bad interpolation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/CFC/trcsms_cfc.F90

    r10425 r12300  
    105105         im2       =      nmonth - 7 
    106106      ENDIF 
     107      ! Avoid bad interpolation if starting date is =< 1900 
     108      IF( iyear_beg .LE. 0      )  iyear_beg = 1 
     109      IF( iyear_beg .GE. jpyear )  iyear_beg = jpyear - 1 
     110      ! 
    107111      iyear_end = iyear_beg + 1 
    108112 
Note: See TracChangeset for help on using the changeset viewer.