Changeset 12305 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_IAUtest/NEMOGCM/NEMO/OPA_SRC/step.F90
- Timestamp:
- 2020-01-07T18:33:24+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_IAUtest/NEMOGCM/NEMO/OPA_SRC/step.F90
r12304 r12305 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.