Changeset 12301


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

dev_r11943_MERGE_2019: Minor fix on CFC to avoid bad interpolation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/CFC/trcsms_cfc.F90

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