New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 746 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90 – NEMO

Ignore:
Timestamp:
2007-12-06T18:03:18+01:00 (16 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_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 
Note: See TracChangeset for help on using the changeset viewer.