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 1109 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 – NEMO

Ignore:
Timestamp:
2008-06-13T11:59:54+02:00 (16 years ago)
Author:
ctlod
Message:

trunk: ensure that surface sea-ice temperature is set to 273 degK over land area, see ticket: #199

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r1055 r1109  
    127127         tfu(:,:) = tfreez( sss_m ) +  rt0  
    128128 
    129          zsist (:,:,1) = sist (:,:) 
    130          zhicif(:,:,1) = hicif(:,:)   ;   zhsnif(:,:,1) = hsnif(:,:) 
     129         zsist (:,:,1) = sist (:,:) + rt0 * ( 1. - tmask(:,:,1) ) 
     130         zhicif(:,:,1) = hicif(:,:) 
     131         zhsnif(:,:,1) = hsnif(:,:) 
    131132 
    132133         ! ... ice albedo 
Note: See TracChangeset for help on using the changeset viewer.