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/dynspg_flt.F90

    r4153 r4328  
    2525   USE zdf_oce         ! ocean vertical physics 
    2626   USE sbc_oce         ! surface boundary condition: ocean 
    27    USE obc_oce         ! Lateral open boundary condition 
    2827   USE bdy_oce         ! Lateral open boundary condition 
    2928   USE sol_oce         ! ocean elliptic solver 
     
    3433   USE solpcg          ! preconditionned conjugate gradient solver 
    3534   USE solsor          ! Successive Over-relaxation solver 
    36    USE obcdyn          ! ocean open boundary condition on dynamics 
    37    USE obcvol          ! ocean open boundary condition (obc_vol routine) 
    3835   USE bdydyn          ! ocean open boundary condition on dynamics 
    3936   USE bdyvol          ! ocean open boundary condition (bdy_vol routine) 
     
    184181      ENDIF 
    185182 
    186 #if defined key_obc 
    187       IF( lk_obc ) CALL obc_dyn( kt )   ! Update velocities on each open boundary with the radiation algorithm 
    188       IF( lk_obc ) CALL obc_vol( kt )   ! Correction of the barotropic componant velocity to control the volume of the system 
    189 #endif 
    190183#if defined key_bdy 
    191184      IF( lk_bdy ) CALL bdy_dyn( kt )   ! Update velocities on each open boundary 
     
    304297            ztdgv = z2dtg * (gcx(ji  ,jj+1) - gcx(ji,jj) ) / e2v(ji,jj) 
    305298            ! multiplied by z2dt 
    306 #if defined key_obc 
    307             IF(lk_obc) THEN 
    308             ! caution : grad D = 0 along open boundaries 
    309             ! Remark: The filtering force could be reduced here in the FRS zone 
    310             !         by multiplying spgu/spgv by (1-alpha) ??   
    311                spgu(ji,jj) = z2dt * ztdgu * obcumask(ji,jj) 
    312                spgv(ji,jj) = z2dt * ztdgv * obcvmask(ji,jj) 
    313             ELSE 
    314                spgu(ji,jj) = z2dt * ztdgu 
    315                spgv(ji,jj) = z2dt * ztdgv 
    316             ENDIF 
    317 #elif defined key_bdy 
     299#if defined key_bdy 
    318300            IF(lk_bdy) THEN 
    319301            ! caution : grad D = 0 along open boundaries 
Note: See TracChangeset for help on using the changeset viewer.