Changeset 418 for trunk/NEMO/OPA_SRC/DYN

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/DYN/dynvor.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynvor.F90

@@ -676 +676 @@
       !!----------------------------------------------------------------------
       !! * Local declarations
-      INTEGER ::   ioptio = 0      ! temporary integer
+      INTEGER ::   ioptio          ! temporary integer
 
       NAMELIST/nam_dynvor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een
@@ -700 +700 @@
       ENDIF
 
+      ioptio = 0
+
       IF( ln_dynvor_ens ) THEN
          IF(lwp) WRITE(numout,*)