Ignore:
Timestamp:
2007-12-06T18:03:18+01:00 (14 years ago)
Author:
smasson
Message:

implement ldstop in iom_varid, see ticket:21

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/restart.F90

    r719 r746  
    266266      ENDIF 
    267267      ! Check dynamics and tracer time-step consistency and force Euler restart if changed 
    268       IF( iom_varid( numror, 'rdt' ) > 0 )   THEN 
     268      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN 
    269269         CALL iom_get( numror, 'rdt', zrdt ) 
    270270         IF( zrdt /= rdt )   neuler = 0 
    271271      ENDIF 
    272       IF( iom_varid( numror, 'rdttra1' ) > 0 )   THEN 
     272      IF( iom_varid( numror, 'rdttra1', ldstop = .FALSE. ) > 0 )   THEN 
    273273         CALL iom_get( numror, 'rdttra1', zrdttra1 ) 
    274274         IF( zrdttra1 /= rdttra(1) )   neuler = 0 
     
    304304#if defined key_ice_lim 
    305305      ! Louvain La Neuve Sea Ice Model 
    306       IF( iom_varid( numror, 'nfice' ) > 0 ) then  
     306      IF( iom_varid( numror, 'nfice', ldstop = .FALSE. ) > 0 ) then  
    307307         CALL iom_get( numror             , 'nfice'  , znfice  )   ! ice computation frequency 
    308308         CALL iom_get( numror, jpdom_autoglo, 'sst_io' , sst_io  ) 
     
    341341#if defined key_flx_bulk_monthly || defined key_flx_bulk_daily || defined key_flx_core  
    342342      ! Louvain La Neuve Sea Ice Model 
    343       IF( iom_varid( numror, 'nfbulk' ) > 0 ) THEN  
     343      IF( iom_varid( numror, 'nfbulk', ldstop = .FALSE. ) > 0 ) THEN  
    344344         CALL iom_get( numror             , 'nfbulk', znfbulk )   ! bulk computation frequency 
    345345         CALL iom_get( numror, jpdom_autoglo, 'gsst'  , gsst    ) 
     
    358358      !!sm: end of TO BE MOVED IN NEW SURFACE MODULE... 
    359359 
    360       IF( iom_varid( numror, 'rhd' ) > 0 ) THEN 
     360      IF( iom_varid( numror, 'rhd', ldstop = .FALSE. ) > 0 ) THEN 
    361361         CALL iom_get( numror, jpdom_autoglo, 'rhd' , rhd  ) 
    362362         CALL iom_get( numror, jpdom_autoglo, 'rhop', rhop ) 
     
    365365      ENDIF 
    366366      IF( ln_zps .AND. .NOT. lk_cfg_1d ) THEN 
    367          IF( iom_varid( numror, 'gtu' ) > 0 ) THEN 
     367         IF( iom_varid( numror, 'gtu', ldstop = .FALSE. ) > 0 ) THEN 
    368368            CALL iom_get( numror, jpdom_autoglo, 'gtu' , gtu ) 
    369369            CALL iom_get( numror, jpdom_autoglo, 'gsu' , gsu ) 
Note: See TracChangeset for help on using the changeset viewer.