- Timestamp:
- 2007-12-11T12:11:46+01:00 (16 years ago)
- Location:
- branches/dev_001_SBC/NEMO/OPA_SRC
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_exp.F90
r708 r762 237 237 ! 238 238 IF( TRIM(cdrw) == 'READ' ) THEN 239 IF( iom_varid( numror, 'sshn' ) > 0 ) THEN239 IF( iom_varid( numror, 'sshn', ldstop = .FALSE. ) > 0 ) THEN 240 240 CALL iom_get( numror, jpdom_autoglo, 'sshb' , sshb(:,:) ) 241 241 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn(:,:) ) -
branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r708 r762 449 449 450 450 IF( TRIM(cdrw) == 'READ' ) THEN 451 IF( iom_varid( numror, 'gcx' ) > 0 ) THEN451 IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 452 452 ! Caution : extra-hallow 453 453 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) -
branches/dev_001_SBC/NEMO/OPA_SRC/DYN/dynspg_rl.F90
r699 r762 514 514 ! 515 515 IF( TRIM(cdrw) == 'READ' ) THEN 516 IF( iom_varid( numror, 'gcx' ) > 0 ) THEN516 IF( iom_varid( numror, 'gcx', ldstop = .FALSE. ) > 0 ) THEN 517 517 ! Caution : extra-hallow 518 518 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) -
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 -
branches/dev_001_SBC/NEMO/OPA_SRC/SOL/solisl.F90
r699 r762 571 571 ! Lecture 572 572 CALL iom_open ( 'islands', inum ) 573 ios = iom_varid( inum, 'aisl' )573 ios = iom_varid( inum, 'aisl', ldstop = .FALSE. ) 574 574 IF( ios > 0 ) THEN 575 575 -
branches/dev_001_SBC/NEMO/OPA_SRC/ZDF/zdftke.F90
r710 r762 799 799 IF( TRIM(cdrw) == 'READ' ) THEN 800 800 IF( ln_rstart ) THEN 801 IF( iom_varid( numror, 'en' ) > 0 .AND. .NOT.(ln_rstke) ) THEN801 IF( iom_varid( numror, 'en', ldstop = .FALSE. ) > 0 .AND. .NOT.(ln_rstke) ) THEN 802 802 CALL iom_get( numror, jpdom_autoglo, 'en', en ) 803 803 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,*) ' ======= =========' 808 809 en (:,:,:) = emin * tmask(:,:,:) 809 810 DO jit = 2, nitke+1 -
branches/dev_001_SBC/NEMO/OPA_SRC/restart.F90
r717 r762 249 249 ENDIF 250 250 ! Check dynamics and tracer time-step consistency and force Euler restart if changed 251 IF( iom_varid( numror, 'rdt' ) > 0 ) THEN251 IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 ) THEN 252 252 CALL iom_get( numror, 'rdt', zrdt ) 253 253 IF( zrdt /= rdt ) neuler = 0 254 254 ENDIF 255 IF( iom_varid( numror, 'rdttra1' ) > 0 ) THEN255 IF( iom_varid( numror, 'rdttra1', ldstop = .FALSE. ) > 0 ) THEN 256 256 CALL iom_get( numror, 'rdttra1', zrdttra1 ) 257 257 IF( zrdttra1 /= rdttra(1) ) neuler = 0 … … 283 283 ENDIF 284 284 285 IF( iom_varid( numror, 'rhd' ) > 0 ) THEN285 IF( iom_varid( numror, 'rhd', ldstop = .FALSE. ) > 0 ) THEN 286 286 CALL iom_get( numror, jpdom_autoglo, 'rhd' , rhd ) 287 287 CALL iom_get( numror, jpdom_autoglo, 'rhop', rhop ) … … 290 290 ENDIF 291 291 IF( ln_zps .AND. .NOT. lk_cfg_1d ) THEN 292 IF( iom_varid( numror, 'gtu' ) > 0 ) THEN292 IF( iom_varid( numror, 'gtu', ldstop = .FALSE. ) > 0 ) THEN 293 293 CALL iom_get( numror, jpdom_autoglo, 'gtu' , gtu ) 294 294 CALL iom_get( numror, jpdom_autoglo, 'gsu' , gsu )
Note: See TracChangeset
for help on using the changeset viewer.