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 10993 for NEMO/releases/release-4.0/src/ICE/icestp.F90 – NEMO

Ignore:
Timestamp:
2019-05-17T15:07:59+02:00 (5 years ago)
Author:
clem
Message:

couple of commits to 1) deal with ice concentration reaching 1 (so, no more limitations in the max ice concentration imposed in the namelist), 2) deal with very small negative values that can occur due to roundoff errors

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/releases/release-4.0/src/ICE/icestp.F90

    r10931 r10993  
    323323         WRITE(numout,*) '         maximum ice concentration for SH                              = ', rn_amax_s 
    324324      ENDIF 
     325      !                                        !--- change max ice concentration for roundoff errors 
     326      rn_amax_n = MIN( rn_amax_n, 1._wp - epsi10 ) 
     327      rn_amax_s = MIN( rn_amax_s, 1._wp - epsi10 ) 
    325328      !                                        !--- check consistency 
    326329      IF ( jpl > 1 .AND. ln_virtual_itd ) THEN 
Note: See TracChangeset for help on using the changeset viewer.