Changeset 14380 for NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/tests/SEAMOUNT/MY_SRC/eosbn2.F90

Timestamp:

2021-02-03T09:45:49+01:00 (3 years ago)

Author:

ayoung

Message:

Corrected implementation of exponential equation of state. See ticket #2480.

File:

• NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/tests/SEAMOUNT/MY_SRC/eosbn2.F90 (modified) (1 diff)

NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/tests/SEAMOUNT/MY_SRC/eosbn2.F90

@@ -1451 +1451 @@
       IF( ln_EOS80  ) THEN   ;   ioptio = ioptio+1   ;   neos = np_eos80    ;   ENDIF
       IF( ln_SEOS   ) THEN   ;   ioptio = ioptio+1   ;   neos = np_seos     ;   ENDIF
-      IF( ln_EEOS   ) THEN   ;   ioptio = ioptio+1   ;   neos = np_seos     ;   ENDIF
+      IF( ln_EEOS   ) THEN   ;   ioptio = ioptio+1   ;   neos = np_eeos     ;   ENDIF
       IF( ioptio /= 1 )   CALL ctl_stop("Exactly one equation of state option must be selected")
       !