Changeset 12304


Ignore:
Timestamp:
2020-01-07T16:27:50+01:00 (3 weeks ago)
Author:
kingr
Message:

Test removal of resetting hdiv to hdivb

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_IAUtest/NEMOGCM/NEMO/OPA_SRC/step.F90

    r11277 r12304  
    347347                                                             ! Revert now divergence and rotational to previously computed ones  
    348348                                                             !(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(:,:,:)  
    351351 
    352352                               CALL dyn_bfr( kstp )         ! bottom friction 
Note: See TracChangeset for help on using the changeset viewer.