Changeset 591

Timestamp:

2007-01-24T10:47:56+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_003 : CT : - add declaration of idvar

• add initialization of itobce, itobcw, itobcn, itobcs variables

File:

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

trunk/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -92 +92 @@
                                 itobcs, itobcn     !    "       "       "       "
       INTEGER ::  istop        
-      INTEGER ::  iprint        ! frequency for printouts.
-      INTEGER :: id_e, id_w, id_n, id_s       ! file identifiers
+      INTEGER ::  iprint                              ! frequency for printouts.
+      INTEGER ::  idvar, id_e, id_w, id_n, id_s       ! file identifiers
       LOGICAL :: llnot_done
       CHARACTER(LEN=25) :: cl_vname
@@ -108 +108 @@
       IF ( kt == nit000 ) THEN
       
-         nlecto =  0
+         nlecto = 0
+         itobce(1) = 0   ;    itobcw(1) = 0
+         itobcn(1) = 0   ;    itobcs(1) = 0
 
          IF (lwp) WRITE(numout,*)