Changeset 5906


Ignore:
Timestamp:
2015-11-23T11:43:05+01:00 (5 years ago)
Author:
jchanut
Message:

correct wrong place for updating scale factors with time splitting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5847_MERCATOR9_solveur_simplification/NEMOGCM/NEMO/OPA_SRC/step.F90

    r5902 r5906  
    2828   !!            3.7  !  2014-10  (G. Madec)  LDF simplication  
    2929   !!             -   !  2014-12  (G. Madec) remove KPP scheme 
     30   !!             -   !  2015-11  (J. Chanut) free surface simplification 
    3031   !!---------------------------------------------------------------------- 
    3132 
     
    214215                         CALL dyn_hpg       ( kstp )  ! horizontal gradient of Hydrostatic pressure 
    215216                         CALL dyn_spg       ( kstp )  ! surface pressure gradient 
    216                          CALL dyn_bfr       ( kstp )  ! bottom friction 
    217                          CALL dyn_zdf       ( kstp )  ! vertical diffusion 
    218217 
    219218                                                      ! With split-explicit free surface, since now transports have been updated and ssha as well 
     
    223222                            CALL wzv        ( kstp )  ! now cross-level velocity  
    224223      ENDIF 
     224 
     225                         CALL dyn_bfr       ( kstp )  ! bottom friction 
     226                         CALL dyn_zdf       ( kstp )  ! vertical diffusion 
    225227 
    226228      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.