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 13153 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/ZDF/zdfphy.F90 – NEMO

Ignore:
Timestamp:
2020-06-24T15:23:31+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2482: fixes after testing with ifort

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/ZDF/zdfphy.F90

    r13081 r13153  
    257257      !                       !==  Kz from chosen turbulent closure  ==!   (avm_k, avt_k) 
    258258      ! 
    259       zsh2(:, :) = 0. 
     259      zsh2(:, :, :) = 0. 
    260260      IF( l_zdfsh2 )   &         !* shear production at w-points (energy conserving form) 
    261261         CALL zdf_sh2( ub, vb, un, vn, avm_k,   &     ! <<== in 
Note: See TracChangeset for help on using the changeset viewer.