Changeset 920 for trunk/NEMO/OPA_SRC/eosbn2.F90

Timestamp:

2008-05-09T13:26:34+02:00 (16 years ago)

Author:

rblod

Message:

Correct incompatibilities with Agrif (easier part), see ticket #133

File:

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

trunk/NEMO/OPA_SRC/eosbn2.F90

@@ -54 +54 @@
    REAL(wp), PUBLIC ::   ralpha = 2.0e-4   !: thermal expension coeff. (linear equation of state)
    REAL(wp), PUBLIC ::   rbeta  = 7.7e-4   !: saline  expension coeff. (linear equation of state)
-   NAMELIST/nameos/ neos, ralpha, rbeta
    
    INTEGER ::   neos_init = 0         !: control flag for initialization
@@ -720 +719 @@
       !! ** Method  :   Read the namelist nameos and control the parameters
       !!----------------------------------------------------------------------
+      NAMELIST/nameos/ neos, ralpha, rbeta
 
       neos_init = 1               ! indicate that the initialization has been done