Changeset 418 for trunk/NEMO/OPA_SRC/OBC/obcdta.F90

Timestamp:

2006-03-21T09:26:27+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_compil_012 : CT : remove missing declaration or warning compilation

File:

• trunk/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -84 +84 @@
       REAL(wp) ::   zxy
       !! * Ajouts FD
-      INTEGER ::  iyrel              ! number of years since 1992
       INTEGER ::  isrel              ! number of seconds since 1/1/1992
       INTEGER, SAVE ::  itobce, itobcw,  & ! number of time steps in OBC files
                         itobcs, itobcn     !    "       "       "       "
       INTEGER ::  ikprint        ! frequency for printouts.
-      INTEGER :: fid_e, fid_w, fid_n, fid_s, fid  ! file identifiers
+      INTEGER :: fid_e, fid_w, fid_n, fid_s       ! file identifiers
       LOGICAL :: l_exv
-      INTEGER, DIMENSION(flio_max_dims) ::    &
-            f_d  ,             & ! dimensions lenght
-            start,             & ! starting index read
-            count                ! number of indices to be read
+      INTEGER, DIMENSION(flio_max_dims) ::   f_d  ! dimensions lenght
      
-      CHARACTER(LEN=25) :: f_name,v_name
+      CHARACTER(LEN=25) :: v_name
       !!--------------------------------------------------------------------
 
@@ -1188 +1184 @@
       INTEGER, INTENT( in ) ::   kbt         ! barotropic ocean time-step index
       WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt
+      WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kbt
    END SUBROUTINE obc_dta_bt
 #endif
@@ -1276 +1273 @@
      INTEGER, INTENT (in) :: kt, jn
      WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt
+     WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', jn
    END SUBROUTINE obc_dta_bt
 #endif