Changeset 10969 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/sshwzv.F90

Timestamp:

2019-05-13T12:02:13+02:00 (5 years ago)

Author:

davestorkey

Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : ASM and knock-on changes. NB. Only tested for compilation - no SETTE tests for ASM.

File:

• NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/sshwzv.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/sshwzv.F90

@@ -54 +54 @@
 CONTAINS
 
-   SUBROUTINE ssh_nxt( kt, Kmm )
+   SUBROUTINE ssh_nxt( kt, Kbb, Kmm )
       !!----------------------------------------------------------------------
       !!                ***  ROUTINE ssh_nxt  ***
@@ -68 +68 @@
       !! Reference  : Leclair, M., and G. Madec, 2009, Ocean Modelling.
       !!----------------------------------------------------------------------
-      INTEGER, INTENT(in) ::   kt   ! time step
-      INTEGER, INTENT(in) ::   Kmm  ! time level index
+      INTEGER, INTENT(in) ::   kt        ! time step
+      INTEGER, INTENT(in) ::   Kbb, Kmm  ! time level index
       ! 
       INTEGER  ::   jk            ! dummy loop indice
@@ -95 +95 @@
       ENDIF
 
-      CALL div_hor( kt, Kmm )                          ! Horizontal divergence
+      CALL div_hor( kt, Kbb, Kmm )                     ! Horizontal divergence
       !
       zhdiv(:,:) = 0._wp