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 15066 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfosm.F90 – NEMO

Ignore:
Timestamp:
2021-07-01T13:17:50+02:00 (3 years ago)
Author:
sparonuz
Message:

Added interface in eosbn2.F90 to ease the weight of casts necessary in mixed precision + Removed unnecessary casts

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfosm.F90

    r14986 r15066  
    32953295      ! w-level of the mixing and mixed layers 
    32963296      CALL eos_rab( CASTWP(ts(:,:,:,:,Kmm)), rab_n, Kmm ) 
    3297       CALL bn2( CASTWP(ts(:,:,:,:,Kmm)), rab_n, rn2, Kmm ) 
     3297      CALL bn2( ts(:,:,:,:,Kmm), rab_n, rn2, Kmm ) 
    32983298      imld_rst(:,:) = nlb10            ! Initialization to the number of w ocean point 
    32993299      hbl(:,:) = 0.0_wp                ! Here hbl used as a dummy variable, integrating vertically N^2 
Note: See TracChangeset for help on using the changeset viewer.