Changeset 15525

Timestamp:

2021-11-19T10:34:52+01:00 (2 years ago)

Author:

cguiavarch

Message:

Bug fix: when using ln_rnf_temp temperature of runoff > 0 (runoff are considered as freshwater and should not be below 0)

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcrnf.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcrnf.F90

@@ -139 +139 @@
             CALL eos_fzp( sss_m(:,:), ztfrz(:,:) )
             WHERE( sf_t_rnf(1)%fnow(:,:,1) == -999._wp )             ! if missing data value use SST as runoffs temperature
-               rnf_tsc(:,:,jp_tem) = sst_m(:,:) * rnf(:,:) * r1_rau0
+               rnf_tsc(:,:,jp_tem) = MAX( sst_m(:,:), 0.0_wp ) * rnf(:,:) * r1_rau0
             END WHERE
             WHERE( sf_t_rnf(1)%fnow(:,:,1) == -222._wp )