- Timestamp:
- 2013-12-06T11:25:13+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r4147 r4328 24 24 USE oce ! ocean dynamics and tracers 25 25 USE dom_oce ! ocean space and time domain 26 USE obc_oce ! ocean lateral open boundary condition27 26 USE in_out_manager ! I/O manager 28 27 USE lib_mpp ! distributed memory computing … … 419 418 END DO 420 419 421 #if defined key_obc422 IF( Agrif_Root() ) THEN423 ! 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/column425 IF( lp_obc_east ) zhdivnep(nie0p1:nie1p1,nje0 :nje1 ,jk) = 0.0_wp ! east426 IF( lp_obc_west ) zhdivnep(niw0 :niw1 ,njw0 :njw1 ,jk) = 0.0_wp ! west427 IF( lp_obc_north ) zhdivnep(nin0 :nin1 ,njn0p1:njn1p1,jk) = 0.0_wp ! north428 IF( lp_obc_south ) zhdivnep(nis0 :nis1 ,njs0 :njs1 ,jk) = 0.0_wp ! south429 ENDIF430 #endif431 420 IF( .NOT. AGRIF_Root() ) THEN 432 421 IF ((nbondi == 1).OR.(nbondi == 2)) zhdivnep(nlci-1 , : ,jk) = 0.0_wp ! east
Note: See TracChangeset
for help on using the changeset viewer.