Changeset 10789 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/dynadv.F90
- Timestamp:
- 2019-03-21T16:15:22+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/dynadv.F90
r10068 r10789 53 53 CONTAINS 54 54 55 SUBROUTINE dyn_adv( kt )55 SUBROUTINE dyn_adv( kt, ktlev1, ktlev2, pu_rhs, pv_rhs ) 56 56 !!--------------------------------------------------------------------- 57 57 !! *** ROUTINE dyn_adv *** … … 67 67 !!---------------------------------------------------------------------- 68 68 INTEGER, INTENT( in ) :: kt ! ocean time-step index 69 INTEGER, INTENT( in ) :: ktlev1, ktlev2 ! time level indices for source terms 70 REAL(wp), INTENT( inout), DIMENSION(jpi,jpj,jpk) :: pu_rhs, pv_rhs ! momentum trends 69 71 !!---------------------------------------------------------------------- 70 72 ! … … 73 75 SELECT CASE( n_dynadv ) !== compute advection trend and add it to general trend ==! 74 76 CASE( np_VEC_c2 ) 75 CALL dyn_keg ( kt, nn_dynkeg) ! vector form : horizontal gradient of kinetic energy76 CALL dyn_zad ( kt )! vector form : vertical advection77 CALL dyn_keg ( kt, ktlev2, nn_dynkeg, pu_rhs, pv_rhs ) ! vector form : horizontal gradient of kinetic energy 78 CALL dyn_zad ( kt, ktlev2, pu_rhs, pv_rhs ) ! vector form : vertical advection 77 79 CASE( np_FLX_c2 ) 78 CALL dyn_adv_cen2( kt )! 2nd order centered scheme80 CALL dyn_adv_cen2( kt, ktlev2, pu_rhs, pv_rhs ) ! 2nd order centered scheme 79 81 CASE( np_FLX_ubs ) 80 CALL dyn_adv_ubs ( kt ) ! 3rd order UBS scheme (UP3)82 CALL dyn_adv_ubs ( kt, ktlev1, ktlev2, pu_rhs, pv_rhs ) ! 3rd order UBS scheme (UP3) 81 83 END SELECT 82 84 !
Note: See TracChangeset
for help on using the changeset viewer.