Changeset 1884 for branches/TAM_V3_0/NEMO/OPA_SRC/eosbn2.F90

Timestamp:

2010-05-27T11:26:52+02:00 (14 years ago)

Author:

rblod

Message:

Light adaptation of NEMO direct model routine to handle TAM

File:

• branches/TAM_V3_0/NEMO/OPA_SRC/eosbn2.F90 (modified) (1 diff)

branches/TAM_V3_0/NEMO/OPA_SRC/eosbn2.F90

@@ -55 +55 @@
    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)
+
+   INTEGER, PUBLIC  ::   neos_init = 0     !: control flag for initialization
    
-   INTEGER ::   neos_init = 0         !: control flag for initialization
-
    !! * Substitutions
 #  include "domzgr_substitute.h90"