Changeset 2910 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90

Timestamp:

2011-10-13T11:41:49+02:00 (13 years ago)

Author:

kpedwards

Message:

Updates from Christian - use kit000 in local TRA code; plus a few style corrections in TRC code.

File:

• branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90 (modified) (4 diffs)

branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90

@@ -45 +45 @@
 CONTAINS
 
-   SUBROUTINE tra_adv_eiv( kt,nit000, pun, pvn, pwn, cdtype )
+   SUBROUTINE tra_adv_eiv( kt, kit000, pun, pvn, pwn, cdtype )
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE tra_adv_eiv  ***
@@ -69 +69 @@
 #endif
       INTEGER                         , INTENT(in   ) ::   kt       ! ocean time-step index
-      INTEGER                         , INTENT(in   ) ::   nit000   ! first time step index
+      INTEGER                         , INTENT(in   ) ::   kit000   ! first time step index
       CHARACTER(len=3)                , INTENT(in   ) ::   cdtype   ! =TRA or TRC (tracer indicator)
       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   pun      ! in : 3 ocean velocity components 
@@ -91 +91 @@
       ENDIF
 
-      IF( kt == nit000 )  THEN
+      IF( kt == kit000 )  THEN
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) 'tra_adv_eiv : eddy induced advection on ', cdtype,' :'
@@ -204 +204 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE tra_adv_eiv( kt,nit000, pun, pvn, pwn, cdtype )              ! Empty routine
+   SUBROUTINE tra_adv_eiv( kt, kit000, pun, pvn, pwn, cdtype )              ! Empty routine
       INTEGER  ::   kt    
-      INTEGER  ::   nit000    
+      INTEGER  ::   kit000    
       CHARACTER(len=3) ::   cdtype
       REAL, DIMENSION(:,:,:) ::   pun, pvn, pwn