Changeset 13312
- Timestamp:
- 2020-07-16T16:15:59+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_oce_sponge.F90
r13295 r13312 320 320 END_2D 321 321 ! 322 ztabramp (:,:) = REAL( mbkt_parent 323 ztabrampu(:,:) = REAL( mbku_parent u(:,:), wp )324 ztabrampv(:,:) = REAL( mbkv_parent v(:,:), wp )322 ztabramp (:,:) = REAL( mbkt_parent(:,:), wp ) 323 ztabrampu(:,:) = REAL( mbku_parent(:,:), wp ) 324 ztabrampv(:,:) = REAL( mbkv_parent(:,:), wp ) 325 325 CALL lbc_lnk_multi( 'Agrif_Sponge', ztabramp, 'T', 1._wp, ztabrampu, 'U', 1._wp, ztabrampv, 'V', 1._wp ) 326 326 mbkt_parent(:,:) = NINT( ztabramp (:,:) )
Note: See TracChangeset
for help on using the changeset viewer.