Changeset 14131 for NEMO/trunk/src/OCE/TRA

Timestamp:

2020-12-08T13:09:14+01:00 (3 years ago)

Author:

jchanut

Message:

#2537, repais rcompilation issue induced by previous commit

Location:

NEMO/trunk/src/OCE/TRA

Files:

• eosbn2.F90 (modified) (1 diff)
• trazdf.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/TRA/eosbn2.F90

@@ -89 +89 @@
 
    !                               !!!  simplified eos coefficients (default value: Vallis 2006)
-   REAL(wp) ::   rn_a0      = 1.6550e-1_wp     ! thermal expansion coeff.
-   REAL(wp) ::   rn_b0      = 7.6554e-1_wp     ! saline  expansion coeff.
+   REAL(wp), PUBLIC ::   rn_a0      = 1.6550e-1_wp     ! thermal expansion coeff.
+   REAL(wp), PUBLIC ::   rn_b0      = 7.6554e-1_wp     ! saline  expansion coeff.
    REAL(wp) ::   rn_lambda1 = 5.9520e-2_wp     ! cabbeling coeff. in T^2
    REAL(wp) ::   rn_lambda2 = 5.4914e-4_wp     ! cabbeling coeff. in S^2

NEMO/trunk/src/OCE/TRA/trazdf.F90

@@ -23 +23 @@
    USE trd_oce        ! trends: ocean variables
    USE trdtra         ! trends: tracer trend manager
+   USE eosbn2, ONLY: ln_SEOS, rn_b0
    !
    USE in_out_manager ! I/O manager
@@ -84 +85 @@
       ! JMM : restore negative salinities to small salinities:
 !!jc: discard this correction in case salinity is not used in eos
-      IF ( .NOT.(ln_seos.AND.(rn_lambda2==0._wp)) ) THEN
+      IF ( .NOT.(ln_SEOS.AND.(rn_b0==0._wp)) ) THEN
          WHERE( pts(A2D(0),:,jp_sal,Kaa) < 0._wp )   pts(A2D(0),:,jp_sal,Kaa) = 0.1_wp
       ENDIF