Changeset 3214 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

Timestamp:

2011-12-12T14:33:31+01:00 (13 years ago)

Author:

cbricaud

Message:

undo last change (keep the second declaration of jpk ) and remove the first one in par_oce.F90

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

@@ -410 +410 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE tra_ldf_iso_grif( kt, cdtype, pgu, pgv, ptb, pta, kjpt, pahtb0 )      ! Empty routine
+  SUBROUTINE tra_ldf_iso_grif( kt, kit000, cdtype, pgu, pgv,              &
+       &                                   ptb, pta, kjpt, pahtb0 )
       CHARACTER(len=3) ::   cdtype
+      INTEGER                              , INTENT(in   ) ::   kit000     ! first time step index
       REAL, DIMENSION(:,:,:) ::   pgu, pgv   ! tracer gradient at pstep levels
       REAL, DIMENSION(:,:,:,:) ::   ptb, pta