Changeset 1214 for trunk

Timestamp:

2008-10-10T17:28:49+02:00 (16 years ago)

Author:

smasson

Message:

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

File:

• trunk/NEMO/OPA_SRC/SBC/sbcssm.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcssm.F90

@@ -72 +72 @@
             IF(lwp) WRITE(numout,*) 'sbc_ssm : sea surface mean fields'
             !
-            IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc' ) > 0 ) THEN 
+            IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 
                CALL iom_get( numror               , 'nn_fsbc', zf_sbc )   ! sbc frequency of previous run
                CALL iom_get( numror, jpdom_autoglo, 'ssu_m'  , ssu_m  )   ! sea surface mean velocity    (T-point)