Changeset 813 for branches

Timestamp:

2008-02-07T18:49:36+01:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: move one part on changeset #783 from domain.F90 into sbcmod.F90, see ticket #65

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (1 diff)

branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -126 +126 @@
       IF( .NOT. ln_rnf )   nn_runoff = 0      ! no runoff, or runoff mouths
 
-      IF( MOD( rday, nn_fsbc*rdt ) /= 0 ) THEN 
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'W A R N I N G :  nn_fsbc is NOT a multiple of the number of time steps in a day'
-         IF(lwp) WRITE(numout,*) ' '
-         nwarn = nwarn + 1
-      ENDIF
+      IF( nn_ice == 2 )   THEN
+         IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 ) THEN 
+            WRITE(ctmp1,*) 'experiment length (', nitend - nit000 + 1, ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')'
+            CALL ctl_stop( ctmp1, 'Impossible to do proper restart files' )
+         ENDIF
+         IF( MOD( nstock, nn_fsbc) /= 0 ) THEN 
+            WRITE(ctmp1,*) 'nstock ('           , nstock             , ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')'
+            CALL ctl_stop( ctmp1, 'Impossible to do proper restart files' )
+         ENDIF
+      ENDIF
+
+      IF( MOD( rday, nn_fsbc*rdt ) /= 0 )   CALL ctl_warn( 'nn_fsbc is NOT a multiple of the number of time steps in a day' )
 
       IF( nn_ice == 2 .AND. .NOT.( ln_blk_clio .OR. ln_blk_core ) )   &