Changeset 10946 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/dynnxt.F90
- Timestamp:
- 2019-05-08T10:56:14+02: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/dynnxt.F90
r10799 r10946 64 64 CONTAINS 65 65 66 SUBROUTINE dyn_nxt ( kt )66 SUBROUTINE dyn_nxt ( kt, Kmm ) 67 67 !!---------------------------------------------------------------------- 68 68 !! *** ROUTINE dyn_nxt *** … … 93 93 !!---------------------------------------------------------------------- 94 94 INTEGER, INTENT( in ) :: kt ! ocean time-step index 95 INTEGER, INTENT( in ) :: Kmm ! time level index 95 96 ! 96 97 INTEGER :: ji, jj, jk ! dummy loop indices … … 157 158 ! 158 159 ! ! Kinetic energy and Conversion 159 IF( ln_KE_trd ) CALL trd_dyn( ua, va, jpdyn_ken, kt )160 IF( ln_KE_trd ) CALL trd_dyn( ua, va, jpdyn_ken, kt, Kmm ) 160 161 ! 161 162 IF( ln_dyn_trd ) THEN ! 3D output: total momentum trends … … 365 366 zua(:,:,:) = ( ub(:,:,:) - zua(:,:,:) ) * z1_2dt 366 367 zva(:,:,:) = ( vb(:,:,:) - zva(:,:,:) ) * z1_2dt 367 CALL trd_dyn( zua, zva, jpdyn_atf, kt )368 CALL trd_dyn( zua, zva, jpdyn_atf, kt, Kmm ) 368 369 ENDIF 369 370 !
Note: See TracChangeset
for help on using the changeset viewer.