Changeset 12467

Timestamp:

2020-02-26T11:00:08+01:00 (4 years ago)

Author:

cguiavarch

Message:

Bug fix. Revert sbcrnf change

File:

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

NEMO/branches/UKMO/NEMO_4.0_ICB_melting_temperature/src/OCE/SBC/sbcrnf.F90

@@ -125 +125 @@
             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) = MAX(sst_m(:,:),0.0_wp) * rnf(:,:) * r1_rau0
+               rnf_tsc(:,:,jp_tem) = sst_m(:,:) * rnf(:,:) * r1_rau0
             END WHERE
             WHERE( sf_t_rnf(1)%fnow(:,:,1) == -222._wp )             ! where fwf comes from melting of ice shelves or iceberg