New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4328 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90 – NEMO

Ignore:
Timestamp:
2013-12-06T11:25:13+01:00 (10 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/dynnept.F90

    r4147 r4328  
    2424   USE oce              ! ocean dynamics and tracers 
    2525   USE dom_oce          ! ocean space and time domain 
    26    USE obc_oce          ! ocean lateral open boundary condition 
    2726   USE in_out_manager   ! I/O manager 
    2827   USE lib_mpp          ! distributed memory computing 
     
    419418         END DO 
    420419 
    421 #if defined key_obc 
    422          IF( Agrif_Root() ) THEN 
    423             ! open boundaries (div must be zero behind the open boundary) 
    424             !  mpp remark: The zeroing of zhdivnep can probably be extended to 1->jpi/jpj for the correct row/column 
    425             IF( lp_obc_east  )  zhdivnep(nie0p1:nie1p1,nje0  :nje1  ,jk) = 0.0_wp      ! east 
    426             IF( lp_obc_west  )  zhdivnep(niw0  :niw1  ,njw0  :njw1  ,jk) = 0.0_wp      ! west 
    427             IF( lp_obc_north )  zhdivnep(nin0  :nin1  ,njn0p1:njn1p1,jk) = 0.0_wp      ! north 
    428             IF( lp_obc_south )  zhdivnep(nis0  :nis1  ,njs0  :njs1  ,jk) = 0.0_wp      ! south 
    429          ENDIF 
    430 #endif 
    431420         IF( .NOT. AGRIF_Root() ) THEN 
    432421            IF ((nbondi ==  1).OR.(nbondi == 2))  zhdivnep(nlci-1 , :     ,jk) = 0.0_wp   ! east 
Note: See TracChangeset for help on using the changeset viewer.