Changeset 1170
- Timestamp:
- 2008-08-11T14:28:51+02:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/BDY/bdy_oce.F90
r1146 r1170 78 78 !! Dummy module NO Unstructured Open Boundary Condition 79 79 !!---------------------------------------------------------------------- 80 LOGICAL :: ln_bdy_tides = .false. !: =T apply tidal harmonic forcing along open boundaries 80 81 #endif 81 82 -
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r1146 r1170 346 346 ! Time interpolation of open boundary condition data 347 347 IF( lk_obc ) CALL obc_dta_bt( kt, jit ) 348 IF( lk_bdy . or. lk_bdy_tides) CALL bdy_dta_bt( kt, jit+1 )348 IF( lk_bdy .OR. ln_bdy_tides) CALL bdy_dta_bt( kt, jit+1 ) 349 349 350 350 ! Horizontal divergence of barotropic transports … … 370 370 #endif 371 371 372 IF( lk_bdy .or. lk_bdy_tides ) THEN 372 #if defined key_bdy 373 373 DO jj = 1, jpj 374 374 DO ji = 1, jpi … … 376 376 END DO 377 377 END DO 378 ENDIF 378 #endif 379 379 380 380 ! Sea surface height from the barotropic system … … 475 475 ! - Correct the barotropic transports 476 476 IF( lk_obc ) CALL obc_fla_ts 477 IF( lk_bdy . or. lk_bdy_tides ) CALL bdy_dyn_fla477 IF( lk_bdy .OR. ln_bdy_tides ) CALL bdy_dyn_fla 478 478 479 479 ! ... Boundary conditions on ua_e, va_e, ssha_e … … 492 492 ! Time filter and swap of dynamics arrays 493 493 ! --------------------------------------- 494 IF( neuler == 0 .AND.jit == 1 ) THEN ! Euler (forward) time stepping494 IF( jit == 1 ) THEN ! Euler (forward) time stepping 495 495 sshb_e (:,:) = sshn_e(:,:) 496 496 zub_e (:,:) = zun_e (:,:) … … 590 590 #endif 591 591 592 IF ( lk_bdy .or. lk_bdy_tides ) THEN 592 #if defined key_bdy 593 593 DO jj = 1, jpj 594 594 DO ji = 1, jpi … … 596 596 END DO 597 597 END DO 598 ENDIF 598 #endif 599 599 600 600 ! sea surface height
Note: See TracChangeset
for help on using the changeset viewer.