Changeset 813
- Timestamp:
- 2008-02-07T18:49:36+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcmod.F90
r747 r813 126 126 IF( .NOT. ln_rnf ) nn_runoff = 0 ! no runoff, or runoff mouths 127 127 128 IF( MOD( rday, nn_fsbc*rdt ) /= 0 ) THEN 129 IF(lwp) WRITE(numout,*) 130 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' 131 IF(lwp) WRITE(numout,*) ' ' 132 nwarn = nwarn + 1 133 ENDIF 128 IF( nn_ice == 2 ) THEN 129 IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 ) THEN 130 WRITE(ctmp1,*) 'experiment length (', nitend - nit000 + 1, ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 131 CALL ctl_stop( ctmp1, 'Impossible to do proper restart files' ) 132 ENDIF 133 IF( MOD( nstock, nn_fsbc) /= 0 ) THEN 134 WRITE(ctmp1,*) 'nstock (' , nstock , ') is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 135 CALL ctl_stop( ctmp1, 'Impossible to do proper restart files' ) 136 ENDIF 137 ENDIF 138 139 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' ) 134 140 135 141 IF( nn_ice == 2 .AND. .NOT.( ln_blk_clio .OR. ln_blk_core ) ) &
Note: See TracChangeset
for help on using the changeset viewer.