Ignore:
Timestamp:
2020-03-25T16:25:02+01:00 (8 months ago)
Author:
orioltp
Message:

Small fixes to avoid crash in single precision. Review of src/ICE/icedyn_rdgrft.F90 will be required.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/ICE/icedyn_rdgrft.F90

    r12546 r12604  
    300300 
    301301      !                       ! Ice thickness needed for rafting 
    302       WHERE( pa_i(1:npti,:) > epsi10 )   ;   zhi(1:npti,:) = pv_i(1:npti,:) / pa_i(1:npti,:) 
     302      WHERE( pa_i(1:npti,:) > epsi10 .and. pv_i(1:npti,:) > epsi10 )   ;   zhi(1:npti,:) = pv_i(1:npti,:) / pa_i(1:npti,:) 
    303303      ELSEWHERE                          ;   zhi(1:npti,:) = 0._wp 
    304304      END WHERE 
Note: See TracChangeset for help on using the changeset viewer.