Changeset 8663 for branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90
- Timestamp:
- 2017-10-27T12:51:56+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90
r8010 r8663 323 323 END DO 324 324 END DO 325 326 IF( .NOT. AGRIF_Root() ) THEN327 IF ((nbondi == 1).OR.(nbondi == 2)) rotn(nlci-1 , : ,jk) = 0.e0 ! east328 IF ((nbondi == -1).OR.(nbondi == 2)) rotn(1 , : ,jk) = 0.e0 ! west329 IF ((nbondj == 1).OR.(nbondj == 2)) rotn(: ,nlcj-1 ,jk) = 0.e0 ! north330 IF ((nbondj == -1).OR.(nbondj == 2)) rotn(: ,1 ,jk) = 0.e0 ! south331 ENDIF332 325 ! ! =============== 333 326 END DO ! End of slab
Note: See TracChangeset
for help on using the changeset viewer.