Changeset 746


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

implement ldstop in iom_varid, see ticket:21

Location:
trunk/NEMO/OPA_SRC
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r719 r746  
    237237      ! 
    238238      IF( TRIM(cdrw) == 'READ' ) THEN 
    239          IF( iom_varid( numror, 'sshn' ) > 0 ) THEN 
     239         IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 
    240240            CALL iom_get( numror, jpdom_autoglo, 'sshb'  , sshb(:,:)   ) 
    241241            CALL iom_get( numror, jpdom_autoglo, 'sshn'  , sshn(:,:)   ) 
  • trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r719 r746  
    450450 
    451451     IF( TRIM(cdrw) == 'READ' ) THEN 
    452         IF( iom_varid( numror, 'gcx' ) > 0 ) THEN 
     452        IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 
    453453! Caution : extra-hallow 
    454454! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 
  • trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90

    r719 r746  
    514514     ! 
    515515     IF( TRIM(cdrw) == 'READ' ) THEN 
    516         IF( iom_varid( numror, 'gcx' ) > 0 ) THEN 
     516        IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 
    517517     ! Caution : extra-hallow 
    518518     ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 
  • trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r719 r746  
    626626      ! 
    627627      IF( TRIM(cdrw) == 'READ' ) THEN 
    628          IF( iom_varid( numror, 'sshn' ) > 0 ) THEN 
     628         IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 
    629629            CALL iom_get( numror, jpdom_autoglo, 'sshb'  , sshb(:,:)   ) 
    630630            CALL iom_get( numror, jpdom_autoglo, 'sshn'  , sshn(:,:)   ) 
     
    636636            ENDIF 
    637637         ENDIF 
    638          IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN 
     638         IF( iom_varid( numror, 'sshn_b', ldstop = .FALSE. ) > 0 ) THEN 
    639639            CALL iom_get( numror, jpdom_autoglo, 'sshb_b', sshb_b(:,:) )   ! free surface issued 
    640640            CALL iom_get( numror, jpdom_autoglo, 'sshn_b', sshn_b(:,:) )   ! from time-splitting loop 
  • trunk/NEMO/OPA_SRC/SOL/solisl.F90

    r719 r746  
    571571      ! Lecture 
    572572      CALL iom_open ( 'islands', inum ) 
    573       ios = iom_varid( inum, 'aisl' ) 
     573      ios = iom_varid( inum, 'aisl', ldstop = .FALSE. ) 
    574574      IF( ios > 0 ) THEN 
    575575 
  • trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

    r719 r746  
    799799     IF( TRIM(cdrw) == 'READ' ) THEN 
    800800        IF( ln_rstart ) THEN 
    801            IF( iom_varid( numror, 'en' ) > 0 .AND. .NOT.(ln_rstke) ) THEN  
     801           IF( iom_varid( numror, 'en', ldstop = .FALSE. ) > 0 .AND. .NOT.(ln_rstke) ) THEN  
    802802              CALL iom_get( numror, jpdom_autoglo, 'en', en ) 
    803803           ELSE 
    804               IF(lwp .AND. iom_varid(numror,'en') > 0 ) WRITE(numout,*) ' ===>>>> : previous run without tke scheme' 
    805               IF(lwp .AND. ln_rstke ) WRITE(numout,*) ' ===>>>> : We do not use en from the restart file' 
    806               IF(lwp) WRITE(numout,*) ' ===>>>> : en set by iterative loop' 
    807               IF(lwp) WRITE(numout,*) ' =======             =========' 
     804              IF( lwp .AND. iom_varid( numror, 'en', ldstop = .FALSE. ) > 0 )   & 
     805                 &                       WRITE(numout,*) ' ===>>>> : previous run without tke scheme' 
     806              IF( lwp .AND. ln_rstke )   WRITE(numout,*) ' ===>>>> : We do not use en from the restart file' 
     807              IF( lwp                )   WRITE(numout,*) ' ===>>>> : en set by iterative loop' 
     808              IF( lwp                )   WRITE(numout,*) ' =======             =========' 
    808809              en (:,:,:) = emin * tmask(:,:,:) 
    809810              DO jit = 2, nitke+1 
  • 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.