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

Merging dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation into the trunk

Location:
NEMO/trunk/src/OCE/ISF
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ISF/isfcav.F90

    r12489 r13226  
    136136      ! 
    137137      ! lbclnk on melt 
    138       CALL lbc_lnk_multi( 'isfmlt', zqh, 'T', 1., pqfwf, 'T', 1.) 
     138      CALL lbc_lnk_multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 
    139139      ! 
    140140      ! output fluxes 
  • NEMO/trunk/src/OCE/ISF/isfcpl.F90

    r12489 r13226  
    195195         zssmask0(:,:) = zssmask_b(:,:) 
    196196         ! 
    197          CALL lbc_lnk_multi( 'iscplrst', zssh, 'T', 1., zssmask0, 'T', 1. ) 
     197         CALL lbc_lnk_multi( 'iscplrst', zssh, 'T', 1.0_wp, zssmask0, 'T', 1.0_wp ) 
    198198         ! 
    199199      END DO 
     
    348348         ztmask0(:,:,:) = ztmask1(:,:,:) 
    349349         ! 
    350          CALL lbc_lnk_multi( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1., zts0(:,:,:,jp_sal), 'T', 1., ztmask0, 'T', 1.) 
     350         CALL lbc_lnk_multi( 'iscplrst', zts0(:,:,:,jp_tem), 'T', 1.0_wp, zts0(:,:,:,jp_sal), 'T', 1.0_wp, ztmask0, 'T', 1.0_wp) 
    351351         ! 
    352352      END DO  ! nn_drown 
     
    433433      END_2D 
    434434      ! 
    435       CALL lbc_lnk( 'iscpl', risfcpl_vol, 'T', 1. ) 
     435      CALL lbc_lnk( 'iscpl', risfcpl_vol, 'T', 1.0_wp ) 
    436436      ! 
    437437      ! 3.0: set total correction (div, tr(:,:,:,:,Krhs), ssh) 
     
    602602                  ELSE IF ( tmask(ji,jj,jk+1) == 1._wp ) THEN 
    603603                     ! spread correction amoung neigbourg wet cells (vertical direction) 
    604                      CALL update_isfpts(zisfpts, jisf, ji  , jj  , jk+1, zdvol, zdsal, zdtem, 1., 0) 
     604                     CALL update_isfpts(zisfpts, jisf, ji  , jj  , jk+1, zdvol, zdsal, zdtem, 1.0_wp, 0) 
    605605                  ELSE 
    606606                     ! need to find where to put correction in later on 
    607                      CALL update_isfpts(zisfpts, jisf, ji  , jj  , jk  , zdvol, zdsal, zdtem, 1., 1) 
     607                     CALL update_isfpts(zisfpts, jisf, ji  , jj  , jk  , zdvol, zdsal, zdtem, 1.0_wp, 1) 
    608608                  END IF 
    609609               END IF 
     
    665665      ! 
    666666      ! add lbclnk 
    667       CALL lbc_lnk_multi( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1., risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1., & 
    668          &                            risfcpl_cons_vol(:,:,:)       , 'T', 1.) 
     667      CALL lbc_lnk_multi( 'iscplrst', risfcpl_cons_tsc(:,:,:,jp_tem), 'T', 1.0_wp, risfcpl_cons_tsc(:,:,:,jp_sal), 'T', 1.0_wp, & 
     668         &                            risfcpl_cons_vol(:,:,:)       , 'T', 1.0_wp) 
    669669      ! 
    670670      ! ssh correction (for dynspg_ts) 
  • NEMO/trunk/src/OCE/ISF/isfpar.F90

    r12489 r13226  
    8282      ! 
    8383      ! lbclnk on melt and heat fluxes 
    84       CALL lbc_lnk_multi( 'isfmlt', zqh, 'T', 1., pqfwf, 'T', 1.) 
     84      CALL lbc_lnk_multi( 'isfmlt', zqh, 'T', 1.0_wp, pqfwf, 'T', 1.0_wp) 
    8585      ! 
    8686      ! output fluxes 
Note: See TracChangeset for help on using the changeset viewer.