Changeset 11287


Ignore:
Timestamp:
2019-07-18T11:54:49+02:00 (13 months ago)
Author:
jchanut
Message:

#2291, Adaptive vertical advection: change order of calls with split explicit free surface

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/step.F90

    r10364 r11287  
    198198                            CALL div_hor    ( kstp )              ! Horizontal divergence  (2nd call in time-split case) 
    199199         IF(.NOT.ln_linssh) CALL dom_vvl_sf_nxt( kstp, kcall=2 )  ! after vertical scale factors (update depth average component) 
     200      ENDIF 
     201                         CALL dyn_zdf       ( kstp )  ! vertical diffusion 
     202 
     203      IF( ln_dynspg_ts ) THEN                          
    200204                            CALL wzv        ( kstp )              ! now cross-level velocity  
    201205         IF( ln_zad_Aimp )  CALL wAimp      ( kstp )  ! Adaptive-implicit vertical advection partitioning 
    202206      ENDIF 
    203        
    204                          CALL dyn_zdf       ( kstp )  ! vertical diffusion 
    205207 
    206208      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.