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

Timestamp:

2020-12-08T09:03:03+01:00 (3 years ago)

Author:

jchanut

Message:

#2537, remove checks/corrections if salinity is a passive tracer

File:

• NEMO/trunk/src/OCE/TRA/trazdf.F90 (modified) (1 diff)

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

@@ -83 +83 @@
       ! JMM avoid negative salinities near river outlet ! Ugly fix
       ! JMM : restore negative salinities to small salinities:
-      WHERE( pts(A2D(0),:,jp_sal,Kaa) < 0._wp )   pts(A2D(0),:,jp_sal,Kaa) = 0.1_wp
+!!jc: discard this correction in case salinity is not used in eos
+      IF ( .NOT.(ln_seos.AND.(rn_lambda2==0._wp)) ) THEN
+         WHERE( pts(A2D(0),:,jp_sal,Kaa) < 0._wp )   pts(A2D(0),:,jp_sal,Kaa) = 0.1_wp
+      ENDIF
 !!gm