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 14934 – NEMO

Changeset 14934


Ignore:
Timestamp:
2021-06-01T10:51:02+02:00 (3 years ago)
Author:
cguiavarch
Message:

Add freshwater temperature content from iceberg and ice cavities

File:
1 edited

Legend:

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

    r14075 r14934  
    1818   USE dom_oce        ! ocean space and time domain 
    1919   USE phycst         ! physical constants 
     20   USE sbcisf         ! surface boundary condition: ice-shelf 
    2021   USE sbc_oce        ! surface boundary condition variables 
    2122   USE eosbn2         ! Equation Of State 
     
    140141               rnf_tsc(:,:,jp_tem) = sst_m(:,:) * rnf(:,:) * r1_rau0 
    141142            END WHERE 
     143            WHERE( sf_t_rnf(1)%fnow(:,:,1) == -222._wp ) 
     144            ! where fwf comes from melting of ice shelves or iceberg 
     145            rnf_tsc(:,:,jp_tem) = ztfrz(:,:) * rnf(:,:) * r1_rau0 - rnf(:,:) * rLfusisf * r1_rau0_rcp 
     146            END WHERE 
    142147         ELSE                                                        ! use SST as runoffs temperature 
    143148            !CEOD River is fresh water so must at least be 0 unless we consider ice 
Note: See TracChangeset for help on using the changeset viewer.