New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15525 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcrnf.F90 – NEMO

Ignore:
Timestamp:
2021-11-19T10:34:52+01:00 (7 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/OCE/SBC/sbcrnf.F90

    r14934 r15525  
    139139            CALL eos_fzp( sss_m(:,:), ztfrz(:,:) ) 
    140140            WHERE( sf_t_rnf(1)%fnow(:,:,1) == -999._wp )             ! if missing data value use SST as runoffs temperature 
    141                rnf_tsc(:,:,jp_tem) = sst_m(:,:) * rnf(:,:) * r1_rau0 
     141               rnf_tsc(:,:,jp_tem) = MAX( sst_m(:,:), 0.0_wp ) * rnf(:,:) * r1_rau0 
    142142            END WHERE 
    143143            WHERE( sf_t_rnf(1)%fnow(:,:,1) == -222._wp ) 
Note: See TracChangeset for help on using the changeset viewer.