Changeset 12304 for branches/UKMO
- Timestamp:
- 2020-01-07T16:27:50+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_IAUtest/NEMOGCM/NEMO/OPA_SRC/step.F90
r11277 r12304 347 347 ! Revert now divergence and rotational to previously computed ones 348 348 !(needed because of the time swap in div_cur, at the beginning of each time step) 349 hdivn(:,:,:) = hdivb(:,:,:)350 rotn(:,:,:) = rotb(:,:,:)349 !hdivn(:,:,:) = hdivb(:,:,:) 350 !rotn(:,:,:) = rotb(:,:,:) 351 351 352 352 CALL dyn_bfr( kstp ) ! bottom friction
Note: See TracChangeset
for help on using the changeset viewer.