Changeset 4103

Timestamp:

2013-10-22T15:34:17+02:00 (10 years ago)

Author:

smasson

Message:

trunk: typo introduced in r4085, see #1146

Location:

trunk/NEMOGCM/NEMO

Files:

• OPA_SRC/DOM/daymod.F90 (modified) (1 diff)
• SAS_SRC/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
+               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', &

trunk/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