- Timestamp:
- 2015-12-02T09:52:20+01:00 (9 years ago)
- Location:
- branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/SAS_SRC/daymod.F90
r5967 r5972 71 71 !!---------------------------------------------------------------------- 72 72 ! 73 ! max number of seconds between each restart 74 IF( REAL( nitend - nit000 + 1 ) * rdt > REAL( HUGE( nsec1jan000 ) ) ) THEN 75 CALL ctl_stop( 'The number of seconds between each restart exceeds the integer 4 max value: 2^31-1. ', & 76 & 'You must do a restart at higher frequency (or remove this stop and recompile the code in I8)' ) 77 ENDIF 73 78 ! all calendar staff is based on the fact that MOD( rday, rdttra(1) ) == 0 74 79 IF( MOD( rday , rdttra(1) ) /= 0. ) CALL ctl_stop( 'the time step must devide the number of second of in a day' ) … … 239 244 nday_year = 1 240 245 nsec_year = ndt05 241 IF( nsec1jan000 >= 2 * (2**30 - nsecd * nyear_len(1) / 2 ) ) THEN ! test integer 4 max value242 CALL ctl_stop( 'The number of seconds between Jan. 1st 00h of nit000 year and Jan. 1st 00h ', &243 & 'of the current year is exceeding the INTEGER 4 max VALUE: 2^31-1 -> 68.09 years in seconds', &244 & 'You must do a restart at higher frequency (or remove this STOP and recompile everything in I8)' )245 ENDIF246 246 nsec1jan000 = nsec1jan000 + nsecd * nyear_len(1) 247 247 IF( nleapy == 1 ) CALL day_mth -
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/SAS_SRC/diawri.F90
r5967 r5972 26 26 USE dom_oce ! ocean space and time domain 27 27 USE zdf_oce ! ocean vertical physics 28 USE ldftra_oce ! ocean active tracers: lateral physics29 USE ldfdyn_oce ! ocean dynamics: lateral physics30 USE traldf_iso_grif, ONLY : psix_eiv, psiy_eiv31 USE sol_oce ! solver variables32 28 USE sbc_oce ! Surface boundary condition: ocean fields 33 29 USE sbc_ice ! Surface boundary condition: ice fields
Note: See TracChangeset
for help on using the changeset viewer.