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 3594 for branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2012-11-19T13:28:55+01:00 (11 years ago)
Author:
rfurner
Message:

code not tested through SETTEE, builds and runs, but has not been thoroughly tested, so will not be included in 2012 merge, however submitted back to keep record of work done for 2013 developments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r3421 r3594  
    141141 
    142142      !                                            ! restartability    
    143       IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 .OR.   & 
    144           MOD( nstock             , nn_fsbc) /= 0 ) THEN  
    145          WRITE(ctmp1,*) 'experiment length (', nitend - nit000 + 1, ') or nstock (', nstock,   & 
     143      IF( MOD( nitend - nit000 + 1, nn_fsbc) /= 0 .OR. ANY ( MOD(nn_stock,nn_fsbc)/=0 )  ) THEN  
     144         WRITE(ctmp1,*) 'experiment length (', nitend - nit000 + 1, ') or an entry in nn_stock (', nn_stock,   & 
    146145            &           ' is NOT a multiple of nn_fsbc (', nn_fsbc, ')' 
    147146         CALL ctl_stop( ctmp1, 'Impossible to properly do model restart' ) 
Note: See TracChangeset for help on using the changeset viewer.