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