Changeset 1493 for trunk/NEMO
- Timestamp:
- 2009-07-17T14:27:43+02:00 (15 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/eosbn2.F90
r1146 r1493 56 56 REAL(wp), PUBLIC :: rbeta = 7.7e-4 !: saline expension coeff. (linear equation of state) 57 57 58 INTEGER :: neos_init = 0 !: control flag for initialization59 60 58 !! * Substitutions 61 59 # include "domzgr_substitute.h90" … … 119 117 !!---------------------------------------------------------------------- 120 118 121 IF( neos_init == 0 ) CALL eos_init ! initialization (in not already done)122 123 119 SELECT CASE ( neos ) 124 120 ! … … 277 273 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zws 278 274 !!---------------------------------------------------------------------- 279 280 IF( neos_init == 0 ) CALL eos_init ! initialization (in not already done)281 275 282 276 SELECT CASE ( neos ) … … 433 427 !!---------------------------------------------------------------------- 434 428 435 IF( neos_init == 0 ) CALL eos_init ! initialization (in not already done)436 437 429 prd(:,:) = 0.e0 438 430 … … 722 714 NAMELIST/nameos/ neos, ralpha, rbeta 723 715 724 neos_init = 1 ! indicate that the initialization has been done725 726 716 REWIND( numnam ) ! Read Namelist nameos : equation of state 727 717 READ ( numnam, nameos ) -
trunk/NEMO/OPA_SRC/opa.F90
r1412 r1493 272 272 CALL phy_cst ! Physical constants 273 273 274 CALL eos_init ! Equation of state 275 274 276 CALL dom_cfg ! Domain configuration 275 277
Note: See TracChangeset
for help on using the changeset viewer.