Changeset 3215 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM

Timestamp:

2011-12-12T16:44:02+01:00 (12 years ago)

Author:

cbricaud

Message:

add missing argument kit000 in tra_ldf_iso_grif dummy routine

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, kit000, cdtype, pgu, pgv,              &
+   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
+      INTEGER          ::   kit000     ! first time step index
       REAL, DIMENSION(:,:,:) ::   pgu, pgv   ! tracer gradient at pstep levels
       REAL, DIMENSION(:,:,:,:) ::   ptb, pta