Changeset 8402 for branches/2015/nemo_v3_6_STABLE

Timestamp:

2017-08-02T15:12:29+02:00 (7 years ago)

Author:

lovato

Message:

3.6_stable: Add control in CFCs time interpolation (#1930)

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90 (modified) (1 diff)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

@@ -117 +117 @@
          im2       =      nmonth - 7
       ENDIF
+      ! Avoid bad interpolation if starting date is =< 1900
+      if( iyear_beg .LE. 0 ) iyear_beg = 1
+      !
       iyear_end = iyear_beg + 1
-
       !                                                  !------------!
       DO jl = 1, jp_cfc                                  !  CFC loop  !