Changeset 4210 for branches/2013/dev_r4022_MERCATOR5_PAPA1D/NEMOGCM/NEMO/SAS_SRC

Timestamp:

2013-11-15T09:46:26+01:00 (11 years ago)

Author:

cbricaud

Message:

merge changes from rev 4022 to 4119 from trunk into dev_r4022_MERCATOR5_PAPA1D

File:

• branches/2013/dev_r4022_MERCATOR5_PAPA1D/NEMOGCM/NEMO/SAS_SRC/daymod.F90 (modified) (1 diff)

branches/2013/dev_r4022_MERCATOR5_PAPA1D/NEMOGCM/NEMO/SAS_SRC/daymod.F90

@@ -246 +246 @@
                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