Changeset 4103 for trunk


Ignore:
Timestamp:
2013-10-22T15:34:17+02:00 (8 years ago)
Author:
smasson
Message:

trunk: typo introduced in r4085, see #1146

Location:
trunk/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r4085 r4103  
    238238               nday_year = 1 
    239239               nsec_year = ndt05 
    240                IF( nsec1jan000 >= 2 * (2^30 - nsecd * nyear_len(1) / 2 ) ) THEN   ! test integer 4 max value 
     240               IF( nsec1jan000 >= 2 * (2**30 - nsecd * nyear_len(1) / 2 ) ) THEN   ! test integer 4 max value 
    241241                  CALL ctl_stop( 'The number of seconds between Jan. 1st 00h of nit000 year and Jan. 1st 00h ',   & 
    242242                     &           '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

    r3851 r4103  
    246246               nday_year = 1 
    247247               nsec_year = ndt05 
     248               IF( nsec1jan000 >= 2 * (2**30 - nsecd * nyear_len(1) / 2 ) ) THEN   ! test integer 4 max value 
     249                  CALL ctl_stop( 'The number of seconds between Jan. 1st 00h of nit000 year and Jan. 1st 00h ',   & 
     250                     &           'of the current year is exceeding the INTEGER 4 max VALUE: 2^31-1 -> 68.09 years in seconds', & 
     251                     & 'You must do a restart at higher frequency (or remove this STOP and recompile everything in I8)' ) 
     252               ENDIF 
    248253               nsec1jan000 = nsec1jan000 + nsecd * nyear_len(1) 
    249254               IF( nleapy == 1 )   CALL day_mth 
Note: See TracChangeset for help on using the changeset viewer.