Changeset 12077 for NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcrnf.F90

Timestamp:

2019-12-05T18:41:39+01:00 (4 years ago)

Author:

mathiot

Message:

include ENHANCE-02_ISF_nemo in UKMO merge branch

File:

• NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcrnf.F90 (modified) (2 diffs)

NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcrnf.F90

@@ -19 +19 @@
    USE phycst         ! physical constants
    USE sbc_oce        ! surface boundary condition variables
-   USE isf            ! ice shelf
    USE eosbn2         ! Equation Of State
    USE closea         ! closed seas
@@ -127 +126 @@
                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
-               rnf_tsc(:,:,jp_tem) = ztfrz(:,:) * rnf(:,:) * r1_rau0 - rnf(:,:) * rLfusisf * r1_rau0_rcp
-            END WHERE
          ELSE                                                        ! use SST as runoffs temperature
             !CEOD River is fresh water so must at least be 0 unless we consider ice