Changeset 13740

Timestamp:

2020-11-06T14:00:29+01:00 (4 years ago)

Author:

techene

Message:

#2385 remove Kaa from arguments

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/VORTEX/MY_SRC/domqco.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/VORTEX/MY_SRC/domqco.F90

@@ -94 +94 @@
       CALL qco_rst_read( nit000, Kbb, Kmm )   ! Read or initialize ssh_(Kbb/Kmm)
       !
-      CALL dom_qco_zgr( Kbb, Kmm, Kaa )       ! interpolation scale factor, depth and water column
+      CALL dom_qco_zgr( Kbb, Kmm )            ! interpolation scale factor, depth and water column
       !
 #if defined key_agrif
@@ -111 +111 @@
 
 
-   SUBROUTINE dom_qco_zgr( Kbb, Kmm, Kaa )
+   SUBROUTINE dom_qco_zgr( Kbb, Kmm )
       !!----------------------------------------------------------------------
       !!                ***  ROUTINE dom_qco_init  ***
@@ -122 +122 @@
       !!              - r3(t/u/v/f)_n
       !!----------------------------------------------------------------------
-      INTEGER, INTENT(in) ::   Kbb, Kmm, Kaa   ! time level indices
+      INTEGER, INTENT(in) ::   Kbb, Kmm   ! time level indices
       !!----------------------------------------------------------------------
       !