New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 813 – NEMO

Changeset 813


Ignore:
Timestamp:
2008-02-07T18:49:36+01:00 (15 years ago)
Author:
ctlod
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcmod.F90

    r747 r813  
    126126      IF( .NOT. ln_rnf )   nn_runoff = 0      ! no runoff, or runoff mouths 
    127127 
    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' ) 
    134140 
    135141      IF( nn_ice == 2 .AND. .NOT.( ln_blk_clio .OR. ln_blk_core ) )   & 
Note: See TracChangeset for help on using the changeset viewer.