- Timestamp:
- 2017-12-15T18:12:43+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap_blp.F90
r9019 r9090 143 143 CALL dyn_ldf_lap( kt, pub, pvb, zulap, zvlap, 1 ) ! rotated laplacian applied to ptb (output in zlap) 144 144 ! 145 CALL lbc_lnk( zulap(:,:,:) , 'U', -1. ) ! Lateral boundary conditions 146 CALL lbc_lnk( zvlap(:,:,:) , 'V', -1. ) 145 CALL lbc_lnk_multi( zulap, 'U', -1., zvlap, 'V', -1. ) ! Lateral boundary conditions 147 146 ! 148 147 CALL dyn_ldf_lap( kt, zulap, zvlap, pua, pva, 2 ) ! rotated laplacian applied to zlap (output in pta)
Note: See TracChangeset
for help on using the changeset viewer.