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

    r4327 r4328  
    2828   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
    2929   USE lib_mpp         ! MPP library 
    30    USE obc_par         ! open boundary cond. parameter 
    31    USE obc_oce 
    3230   USE bdy_oce 
    3331   USE bdy_par          
     
    120118      CALL agrif_ssh( kt ) 
    121119#endif 
    122 #if defined key_obc 
    123       IF( Agrif_Root() ) THEN  
    124          ssha(:,:) = ssha(:,:) * obctmsk(:,:) 
    125          CALL lbc_lnk( ssha, 'T', 1. )                 ! absolutly compulsory !! (jmm) 
    126       ENDIF 
    127 #endif 
    128120#if defined key_bdy 
    129121      ! bg jchanut tschanges 
Note: See TracChangeset for help on using the changeset viewer.