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 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2020-12-18T18:52:57+01:00 (4 years ago)
Author:
mcastril
Message:

Add Mixed Precision support by Oriol Tintó

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/SBC/sbcmod.F90

    r14072 r14219  
    7575   !! * Substitutions 
    7676#  include "do_loop_substitute.h90" 
     77#  include "single_precision_substitute.h90" 
    7778   !!---------------------------------------------------------------------- 
    7879   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    … …  
    441442         END_2D 
    442443         ! 
    443          CALL lbc_lnk( 'sbcwave', utau, 'U', -1. ) 
    444          CALL lbc_lnk( 'sbcwave', vtau, 'V', -1. ) 
     444         CALL lbc_lnk_multi( 'sbcwave', utau, 'U', -1._wp , vtau, 'V', -1._wp ) 
    445445         ! 
    446446         taum(:,:) = taum(:,:)*tauoc_wave(:,:) 
    … …  
    452452         utau(:,:) = utau(:,:) - tawx(:,:) + twox(:,:) 
    453453         vtau(:,:) = vtau(:,:) - tawy(:,:) + twoy(:,:) 
    454          CALL lbc_lnk( 'sbcwave', utau, 'U', -1. ) 
    455          CALL lbc_lnk( 'sbcwave', vtau, 'V', -1. ) 
     454         CALL lbc_lnk_multi( 'sbcwave', utau, 'U', -1._wp, vtau, 'V', -1._wp ) 
    456455         ! 
    457456         DO_2D( 0, 0, 0, 0) 
    … …  
    463462         ! 
    464463      ENDIF 
    465       CALL lbc_lnk( 'sbcmod', taum(:,:), 'T', 1. ) 
     464      CALL lbc_lnk( 'sbcmod', taum(:,:), 'T', 1._wp ) 
    466465      ! 
    467466      !                                            !==  Misc. Options  ==! 
    … …  
    586585         CALL prt_ctl(tab2d_1=qsr                 , clinfo1=' qsr      - : ', mask1=tmask ) 
    587586         CALL prt_ctl(tab3d_1=tmask               , clinfo1=' tmask    - : ', mask1=tmask, kdim=jpk ) 
    588          CALL prt_ctl(tab3d_1=ts(:,:,:,jp_tem,Kmm), clinfo1=' sst      - : ', mask1=tmask, kdim=1   ) 
    589          CALL prt_ctl(tab3d_1=ts(:,:,:,jp_sal,Kmm), clinfo1=' sss      - : ', mask1=tmask, kdim=1   ) 
     587         CALL prt_ctl(tab3d_1=CASTWP(ts(:,:,:,jp_tem,Kmm)), clinfo1=' sst      - : ', mask1=tmask, kdim=1   ) 
     588         CALL prt_ctl(tab3d_1=CASTWP(ts(:,:,:,jp_sal,Kmm)), clinfo1=' sss      - : ', mask1=tmask, kdim=1   ) 
    590589         CALL prt_ctl(tab2d_1=utau                , clinfo1=' utau     - : ', mask1=umask,                      & 
    591590            &         tab2d_2=vtau                , clinfo2=' vtau     - : ', mask2=vmask ) 
Note: See TracChangeset for help on using the changeset viewer.