Changeset 10922 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/sshwzv.F90
- Timestamp:
- 2019-05-02T17:10:39+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/sshwzv.F90
r10425 r10922 54 54 CONTAINS 55 55 56 SUBROUTINE ssh_nxt( kt )56 SUBROUTINE ssh_nxt( kt, Kmm ) 57 57 !!---------------------------------------------------------------------- 58 58 !! *** ROUTINE ssh_nxt *** … … 69 69 !!---------------------------------------------------------------------- 70 70 INTEGER, INTENT(in) :: kt ! time step 71 INTEGER, INTENT(in) :: Kmm ! time level index 71 72 ! 72 73 INTEGER :: jk ! dummy loop indice … … 94 95 ENDIF 95 96 96 CALL div_hor( kt )! Horizontal divergence97 CALL div_hor( kt, Kmm ) ! Horizontal divergence 97 98 ! 98 99 zhdiv(:,:) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.