Changeset 1170


Ignore:
Timestamp:
2008-08-11T14:28:51+02:00 (12 years ago)
Author:
rblod
Message:

Correct a bug for euler forward time stepping see ticket #231 , add correction for bdy (non defined fields)

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/BDY/bdy_oce.F90

    r1146 r1170  
    7878   !!   Dummy module                NO Unstructured Open Boundary Condition 
    7979   !!---------------------------------------------------------------------- 
     80   LOGICAL ::   ln_bdy_tides = .false.  !: =T apply tidal harmonic forcing along open boundaries 
    8081#endif 
    8182 
  • trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r1146 r1170  
    346346         ! Time interpolation of open boundary condition data 
    347347         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 ) 
    349349 
    350350         ! Horizontal divergence of barotropic transports 
     
    370370#endif 
    371371 
    372          IF( lk_bdy .or. lk_bdy_tides ) THEN 
     372#if defined key_bdy 
    373373            DO jj = 1, jpj 
    374374               DO ji = 1, jpi 
     
    376376               END DO 
    377377            END DO 
    378          ENDIF 
     378#endif 
    379379 
    380380         ! Sea surface height from the barotropic system 
     
    475475         !         - Correct the barotropic transports 
    476476         IF( lk_obc )   CALL obc_fla_ts 
    477          IF( lk_bdy .or. lk_bdy_tides )   CALL bdy_dyn_fla 
     477         IF( lk_bdy .OR. ln_bdy_tides )   CALL bdy_dyn_fla 
    478478 
    479479         ! ... Boundary conditions on ua_e, va_e, ssha_e 
     
    492492         ! Time filter and swap of dynamics arrays 
    493493         ! --------------------------------------- 
    494          IF( neuler == 0 .AND. jit == 1 ) THEN   ! Euler (forward) time stepping 
     494         IF( jit == 1 ) THEN   ! Euler (forward) time stepping 
    495495            sshb_e (:,:) = sshn_e(:,:) 
    496496            zub_e  (:,:) = zun_e (:,:) 
     
    590590#endif 
    591591 
    592       IF ( lk_bdy .or. lk_bdy_tides ) THEN 
     592#if defined key_bdy 
    593593         DO jj = 1, jpj 
    594594           DO ji = 1, jpi 
     
    596596           END DO 
    597597         END DO 
    598       ENDIF 
     598#endif 
    599599 
    600600      ! sea surface height 
Note: See TracChangeset for help on using the changeset viewer.