Changeset 4085 for trunk

Timestamp:

2013-10-21T15:16:09+02:00 (11 years ago)

Author:

smasson

Message:

trunk: add stop if calendar exceed i4 max value, see #1146

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -238 +238 @@
                nday_year = 1
                nsec_year = ndt05
+               IF( nsec1jan000 >= 2 * (2^30 - nsecd * nyear_len(1) / 2 ) ) THEN   ! test integer 4 max value
+                  CALL ctl_stop( 'The number of seconds between Jan. 1st 00h of nit000 year and Jan. 1st 00h ',   &
+                     &           'of the current year is exceeding the INTEGER 4 max VALUE: 2^31-1 -> 68.09 years in seconds', &
+                     & 'You must do a restart at higher frequency (or remove this STOP and recompile everything in I8)' )
+               ENDIF
                nsec1jan000 = nsec1jan000 + nsecd * nyear_len(1)
                IF( nleapy == 1 )   CALL day_mth