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 12604 for NEMO/branches/2020 – NEMO

Changeset 12604 for NEMO/branches/2020


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

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

Location:
NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src
Files:
2 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 
  • NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/OCE/TRA/traadv_fct.F90

    r12603 r12604  
    9696         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    9797      ENDIF 
     98      !! -- init to 0 
     99      zwi(:,:,:) = 0._wp 
     100      zwx(:,:,:) = 0._wp 
     101      zwy(:,:,:) = 0._wp 
     102      zwz(:,:,:) = 0._wp 
     103      ztu(:,:,:) = 0._wp 
     104      ztv(:,:,:) = 0._wp 
     105      zltu(:,:,:) = 0._wp 
     106      zltv(:,:,:) = 0._wp 
     107      ztw(:,:,:) = 0._wp 
    98108      ! 
    99109      l_trd = .FALSE.            ! set local switches 
Note: See TracChangeset for help on using the changeset viewer.