Changeset 14934 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_package

Timestamp:

2021-06-01T10:51:02+02:00 (3 years ago)

Author:

cguiavarch

Message:

Add freshwater temperature content from iceberg and ice cavities

File:

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

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

@@ -18 +18 @@
    USE dom_oce        ! ocean space and time domain
    USE phycst         ! physical constants
+   USE sbcisf         ! surface boundary condition: ice-shelf
    USE sbc_oce        ! surface boundary condition variables
    USE eosbn2         ! Equation Of State
@@ -140 +141 @@
                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