Changeset 746 for trunk/NEMO/OPA_SRC/restart.F90

Timestamp:

2007-12-06T18:03:18+01:00 (17 years ago)

Author:

smasson

Message:

implement ldstop in iom_varid, see ticket:21

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/restart.F90

@@ -266 +266 @@
       ENDIF
       ! Check dynamics and tracer time-step consistency and force Euler restart if changed
-      IF( iom_varid( numror, 'rdt' ) > 0 )   THEN
+      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN
          CALL iom_get( numror, 'rdt', zrdt )
          IF( zrdt /= rdt )   neuler = 0
       ENDIF
-      IF( iom_varid( numror, 'rdttra1' ) > 0 )   THEN
+      IF( iom_varid( numror, 'rdttra1', ldstop = .FALSE. ) > 0 )   THEN
          CALL iom_get( numror, 'rdttra1', zrdttra1 )
          IF( zrdttra1 /= rdttra(1) )   neuler = 0
@@ -304 +304 @@
 #if defined key_ice_lim
       ! Louvain La Neuve Sea Ice Model
-      IF( iom_varid( numror, 'nfice' ) > 0 ) then 
+      IF( iom_varid( numror, 'nfice', ldstop = .FALSE. ) > 0 ) then 
          CALL iom_get( numror             , 'nfice'  , znfice  )   ! ice computation frequency
          CALL iom_get( numror, jpdom_autoglo, 'sst_io' , sst_io  )
@@ -341 +341 @@
 #if defined key_flx_bulk_monthly || defined key_flx_bulk_daily || defined key_flx_core 
       ! Louvain La Neuve Sea Ice Model
-      IF( iom_varid( numror, 'nfbulk' ) > 0 ) THEN 
+      IF( iom_varid( numror, 'nfbulk', ldstop = .FALSE. ) > 0 ) THEN 
          CALL iom_get( numror             , 'nfbulk', znfbulk )   ! bulk computation frequency
          CALL iom_get( numror, jpdom_autoglo, 'gsst'  , gsst    )
@@ -358 +358 @@
       !!sm: end of TO BE MOVED IN NEW SURFACE MODULE...
 
-      IF( iom_varid( numror, 'rhd' ) > 0 ) THEN
+      IF( iom_varid( numror, 'rhd', ldstop = .FALSE. ) > 0 ) THEN
          CALL iom_get( numror, jpdom_autoglo, 'rhd' , rhd  )
          CALL iom_get( numror, jpdom_autoglo, 'rhop', rhop )
@@ -365 +365 @@
       ENDIF
       IF( ln_zps .AND. .NOT. lk_cfg_1d ) THEN
-         IF( iom_varid( numror, 'gtu' ) > 0 ) THEN
+         IF( iom_varid( numror, 'gtu', ldstop = .FALSE. ) > 0 ) THEN
             CALL iom_get( numror, jpdom_autoglo, 'gtu' , gtu )
             CALL iom_get( numror, jpdom_autoglo, 'gsu' , gsu )