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/ZDF/zdftke.F90

    r719 r746  
    799799     IF( TRIM(cdrw) == 'READ' ) THEN 
    800800        IF( ln_rstart ) THEN 
    801            IF( iom_varid( numror, 'en' ) > 0 .AND. .NOT.(ln_rstke) ) THEN  
     801           IF( iom_varid( numror, 'en', ldstop = .FALSE. ) > 0 .AND. .NOT.(ln_rstke) ) THEN  
    802802              CALL iom_get( numror, jpdom_autoglo, 'en', en ) 
    803803           ELSE 
    804               IF(lwp .AND. iom_varid(numror,'en') > 0 ) WRITE(numout,*) ' ===>>>> : previous run without tke scheme' 
    805               IF(lwp .AND. ln_rstke ) WRITE(numout,*) ' ===>>>> : We do not use en from the restart file' 
    806               IF(lwp) WRITE(numout,*) ' ===>>>> : en set by iterative loop' 
    807               IF(lwp) WRITE(numout,*) ' =======             =========' 
     804              IF( lwp .AND. iom_varid( numror, 'en', ldstop = .FALSE. ) > 0 )   & 
     805                 &                       WRITE(numout,*) ' ===>>>> : previous run without tke scheme' 
     806              IF( lwp .AND. ln_rstke )   WRITE(numout,*) ' ===>>>> : We do not use en from the restart file' 
     807              IF( lwp                )   WRITE(numout,*) ' ===>>>> : en set by iterative loop' 
     808              IF( lwp                )   WRITE(numout,*) ' =======             =========' 
    808809              en (:,:,:) = emin * tmask(:,:,:) 
    809810              DO jit = 2, nitke+1 
Note: See TracChangeset for help on using the changeset viewer.