Changeset 1214


Ignore:
Timestamp:
2008-10-10T17:28:49+02:00 (12 years ago)
Author:
smasson
Message:

bugfix in sbcssm when using old restart files, see ticket:268

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcssm.F90

    r1196 r1214  
    7272            IF(lwp) WRITE(numout,*) 'sbc_ssm : sea surface mean fields' 
    7373            ! 
    74             IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc' ) > 0 ) THEN  
     74            IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN  
    7575               CALL iom_get( numror               , 'nn_fsbc', zf_sbc )   ! sbc frequency of previous run 
    7676               CALL iom_get( numror, jpdom_autoglo, 'ssu_m'  , ssu_m  )   ! sea surface mean velocity    (T-point) 
Note: See TracChangeset for help on using the changeset viewer.