Changeset 762 for branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2007-12-11T12:11:46+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r708 r762 626 626 ! 627 627 IF( TRIM(cdrw) == 'READ' ) THEN 628 IF( iom_varid( numror, 'sshn' ) > 0 ) THEN628 IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 629 629 CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb(:,:) ) 630 630 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn(:,:) ) … … 636 636 ENDIF 637 637 ENDIF 638 IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN638 IF( iom_varid( numror, 'sshn_b', ldstop = .FALSE. ) > 0 ) THEN 639 639 CALL iom_get( numror, jpdom_autoglo, 'sshb_b', sshb_b(:,:) ) ! free surface issued 640 640 CALL iom_get( numror, jpdom_autoglo, 'sshn_b', sshn_b(:,:) ) ! from time-splitting loop
Note: See TracChangeset
for help on using the changeset viewer.