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/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(:,:)   ) 
Note: See TracChangeset for help on using the changeset viewer.