Ignore:
Timestamp:
2020-07-02T16:24:31+02:00 (5 months ago)
Author:
orioltp
Message:

Merging dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcwave.F90

    r12965 r13226  
    198198      ENDIF 
    199199 
    200       CALL lbc_lnk_multi( 'sbcwave', usd, 'U', -1., vsd, 'V', -1. ) 
     200      CALL lbc_lnk_multi( 'sbcwave', usd, 'U', -1.0_wp, vsd, 'V', -1.0_wp ) 
    201201 
    202202      ! 
     
    210210      END_3D 
    211211      ! 
    212       CALL lbc_lnk( 'sbcwave', ze3divh, 'T', 1. ) 
     212      CALL lbc_lnk( 'sbcwave', ze3divh, 'T', 1.0_wp ) 
    213213      ! 
    214214      IF( ln_linssh ) THEN   ;   ik = 1   ! none zero velocity through the sea surface 
     
    269269            taum(ji,jj) = SQRT( tauw_x(ji,jj)*tauw_x(ji,jj) + tauw_y(ji,jj)*tauw_y(ji,jj) ) 
    270270         END_2D 
    271          CALL lbc_lnk_multi( 'sbcwave', utau(:,:), 'U', -1. , vtau(:,:), 'V', -1. , taum(:,:) , 'T', -1. ) 
     271         CALL lbc_lnk_multi( 'sbcwave', utau(:,:), 'U', -1.0_wp , vtau(:,:), 'V', -1.0_wp , taum(:,:) , 'T', -1.0_wp ) 
    272272      ENDIF 
    273273      ! 
Note: See TracChangeset for help on using the changeset viewer.