Ignore:
Timestamp:
2013-12-06T11:25:13+01:00 (7 years ago)
Author:
davestorkey
Message:

Remove OBC module at NEMO 3.6. See ticket #1189.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

    r4312 r4328  
    3030   USE dynadv          ! dynamics: vector invariant versus flux form 
    3131   USE domvvl          ! variable volume 
    32    USE obc_oce         ! ocean open boundary conditions 
    33    USE obcdyn          ! open boundary condition for momentum (obc_dyn routine) 
    34    USE obcdyn_bt       ! 2D open boundary condition for momentum (obc_dyn_bt routine) 
    35    USE obcvol          ! ocean open boundary condition (obc_vol routines) 
    3632   USE bdy_oce         ! ocean open boundary conditions 
    3733   USE bdydta          ! ocean open boundary conditions 
     
    8379      !!              * Apply lateral boundary conditions on after velocity  
    8480      !!             at the local domain boundaries through lbc_lnk call, 
    85       !!             at the one-way open boundaries (lk_obc=T), 
     81      !!             at the one-way open boundaries (lk_bdy=T), 
    8682      !!             at the AGRIF zoom     boundaries (lk_agrif=T) 
    8783      !! 
     
    204200      CALL lbc_lnk( va, 'V', -1. )  
    205201      ! 
    206 # if defined key_obc 
    207       !                                !* OBC open boundaries 
    208       IF( lk_obc ) CALL obc_dyn( kt ) 
    209       ! 
    210       IF( .NOT. lk_dynspg_flt ) THEN 
    211          ! Flather boundary condition : - Update sea surface height on each open boundary 
    212          !                                       sshn   (= after ssh   ) for explicit case (lk_dynspg_exp=T) 
    213          !                                       sshn_b (= after ssha_b) for time-splitting case (lk_dynspg_ts=T) 
    214          !                              - Correct the barotropic velocities 
    215          IF( lk_obc ) CALL obc_dyn_bt( kt ) 
    216          ! 
    217 !!gm ERROR - potential BUG: sshn should not be modified at this stage !!   ssh_nxt not alrady called 
    218          CALL lbc_lnk( sshn, 'T', 1. )         ! Boundary conditions on sshn 
    219          ! 
    220          IF( lk_obc .AND. ln_vol_cst )   CALL obc_vol( kt ) 
    221          ! 
    222          IF(ln_ctl)   CALL prt_ctl( tab2d_1=sshn, clinfo1=' ssh      : ', mask1=tmask ) 
    223       ENDIF 
    224       ! 
    225 # elif defined key_bdy 
     202# if defined key_bdy 
    226203      !                                !* BDY open boundaries 
    227204      IF( lk_bdy .AND. lk_dynspg_exp ) CALL bdy_dyn( kt ) 
Note: See TracChangeset for help on using the changeset viewer.