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/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.