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