Ignore:
Timestamp:
2019-11-27T15:50:29+01:00 (10 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: changes needed after Dave's review

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/SBC/sbcrnf.F90

    r11395 r11987  
    1919   USE phycst         ! physical constants 
    2020   USE sbc_oce        ! surface boundary condition variables 
    21    USE isf            ! ice shelf 
    2221   USE eosbn2         ! Equation Of State 
    2322   USE closea         ! closed seas 
     
    127126               rnf_tsc(:,:,jp_tem) = sst_m(:,:) * rnf(:,:) * r1_rau0 
    128127            END WHERE 
    129             WHERE( sf_t_rnf(1)%fnow(:,:,1) == -222._wp )             ! where fwf comes from melting of ice shelves or iceberg 
    130                rnf_tsc(:,:,jp_tem) = ztfrz(:,:) * rnf(:,:) * r1_rau0 - rnf(:,:) * rLfusisf * r1_rau0_rcp 
    131             END WHERE 
    132128         ELSE                                                        ! use SST as runoffs temperature 
    133129            !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.