Changeset 14131 for NEMO/trunk/src/OCE/stpctl.F90

Timestamp:

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

Author:

jchanut

Message:

#2537, repais rcompilation issue induced by previous commit

File:

• NEMO/trunk/src/OCE/stpctl.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/stpctl.F90

@@ -26 +26 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp         ! distributed memory computing
-   USE eosbn2
+   USE eosbn2, ONLY: ln_SEOS, rn_b0
    !
    USE netcdf          ! NetCDF library
@@ -184 +184 @@
       !                                   !==  done by all processes at every time step  ==!
       !
-      IF ( ln_seos.AND.(rn_lambda2==0._wp) ) THEN        ! Discard checks on salinity
+      IF ( ln_SEOS.AND.(rn_b0==0._wp) ) THEN             ! Discard checks on salinity
          zmaxsal = +1.e38                                ! if not used in eos
          zminsal = -1.e38