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 13666 for NEMO/branches/UKMO/NEMO_4.0.1_fix_nans/src/OCE/SBC/sbccpl.F90 – NEMO

Ignore:
Timestamp:
2020-10-23T16:33:46+02:00 (4 years ago)
Author:
dancopsey
Message:

Move the point where I correct the total ice fraction

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.1_fix_nans/src/OCE/SBC/sbccpl.F90

    r13665 r13666  
    16471647      ! 
    16481648      IF( ln_mixcpl )   zmsk(:,:) = 1. - xcplmask(:,:,0) 
    1649  
    1650       ! Apply a limit to the ice fraction to avoid NANs being generated in ice_thd_snwblow 
    1651       ! (negative number to power of 0.66)  
    1652       WHERE( picefr(:,:) > 1._wp ) picefr(:,:) = 1._wp 
    1653  
    16541649      ziceld(:,:) = 1._wp - picefr(:,:) 
    16551650      zcptn (:,:) = rcp * sst_m(:,:) 
Note: See TracChangeset for help on using the changeset viewer.