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/TRD
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/TRD/trddyn.F90

    r12489 r13226  
    127127                                 z3dy(ji,jj,jk) = vv(ji,jj,jk,Kmm) * ( vv(ji,jj+1,jk,Kmm) - vv(ji,jj-1,jk,Kmm) ) / ( 2._wp * e2v(ji,jj) ) 
    128128                              END_3D 
    129                               CALL lbc_lnk_multi( 'trddyn', z3dx, 'U', -1., z3dy, 'V', -1. ) 
     129                              CALL lbc_lnk_multi( 'trddyn', z3dx, 'U', -1.0_wp, z3dy, 'V', -1.0_wp ) 
    130130                              CALL iom_put( "utrd_udx", z3dx  ) 
    131131                              CALL iom_put( "vtrd_vdy", z3dy  ) 
     
    163163!                                 END DO 
    164164!                              END DO 
    165 !                              CALL lbc_lnk_multi( 'trddyn', z3dx, 'U', -1., z3dy, 'V', -1. ) 
     165!                              CALL lbc_lnk_multi( 'trddyn', z3dx, 'U', -1.0_wp, z3dy, 'V', -1.0_wp ) 
    166166!                              CALL iom_put( "utrd_bfr", z3dx ) 
    167167!                              CALL iom_put( "vtrd_bfr", z3dy ) 
  • NEMO/trunk/src/OCE/TRD/trdken.F90

    r12489 r13226  
    8989      !!---------------------------------------------------------------------- 
    9090      ! 
    91       CALL lbc_lnk_multi( 'trdken', putrd, 'U', -1. , pvtrd, 'V', -1. )      ! lateral boundary conditions 
     91      CALL lbc_lnk_multi( 'trdken', putrd, 'U', -1.0_wp , pvtrd, 'V', -1.0_wp )      ! lateral boundary conditions 
    9292      ! 
    9393      nkstp = kt 
  • NEMO/trunk/src/OCE/TRD/trdmxl.F90

    r12377 r13226  
    151151!!gm to be put juste before the output ! 
    152152!      ! Lateral boundary conditions 
    153 !      CALL lbc_lnk_multi( 'trdmxl', tmltrd(:,:,jl), 'T', 1. , smltrd(:,:,jl), 'T', 1. ) 
     153!      CALL lbc_lnk_multi( 'trdmxl', tmltrd(:,:,jl), 'T', 1.0_wp , smltrd(:,:,jl), 'T', 1.0_wp ) 
    154154!!gm end 
    155155 
     
    469469         !-- Lateral boundary conditions 
    470470         !         ... temperature ...                    ... salinity ... 
    471          CALL lbc_lnk_multi( 'trdmxl', ztmltot , 'T', 1., zsmltot , 'T', 1., & 
    472                   &          ztmlres , 'T', 1., zsmlres , 'T', 1., & 
    473                   &          ztmlatf , 'T', 1., zsmlatf , 'T', 1. ) 
     471         CALL lbc_lnk_multi( 'trdmxl', ztmltot , 'T', 1.0_wp, zsmltot , 'T', 1.0_wp, & 
     472                  &          ztmlres , 'T', 1.0_wp, zsmlres , 'T', 1.0_wp, & 
     473                  &          ztmlatf , 'T', 1.0_wp, zsmlatf , 'T', 1.0_wp ) 
    474474 
    475475 
     
    520520         !-- Lateral boundary conditions 
    521521         !         ... temperature ...                    ... salinity ... 
    522          CALL lbc_lnk_multi( 'trdmxl', ztmltot2, 'T', 1., zsmltot2, 'T', 1., & 
    523                   &          ztmlres2, 'T', 1., zsmlres2, 'T', 1. ) 
    524          ! 
    525          CALL lbc_lnk_multi( 'trdmxl', ztmltrd2(:,:,:), 'T', 1., zsmltrd2(:,:,:), 'T', 1. ) ! /  in the NetCDF trends file 
     522         CALL lbc_lnk_multi( 'trdmxl', ztmltot2, 'T', 1.0_wp, zsmltot2, 'T', 1.0_wp, & 
     523                  &          ztmlres2, 'T', 1.0_wp, zsmlres2, 'T', 1.0_wp ) 
     524         ! 
     525         CALL lbc_lnk_multi( 'trdmxl', ztmltrd2(:,:,:), 'T', 1.0_wp, zsmltrd2(:,:,:), 'T', 1.0_wp ) ! /  in the NetCDF trends file 
    526526          
    527527         ! III.3 Time evolution array swap 
  • NEMO/trunk/src/OCE/TRD/trdtrc.F90

    r12377 r13226  
    11MODULE trdtrc 
     2   USE par_kind 
    23   !!====================================================================== 
    34   !!                       ***  MODULE trdtrc  *** 
     
    1213      INTEGER ::   kt, kjn, ktrd    
    1314      INTEGER ::   Kmm            ! time level index 
    14       REAL    ::   ptrtrd(:,:,:)   
     15      REAL(wp)::   ptrtrd(:,:,:)   
    1516      WRITE(*,*) 'trd_trc : You should not have seen this print! error?', ptrtrd(1,1,1) 
    1617      WRITE(*,*) '  "      "      : You should not have seen this print! error?', kjn, ktrd, kt 
  • NEMO/trunk/src/OCE/TRD/trdvor.F90

    r12489 r13226  
    161161 
    162162      zudpvor(:,:) = 0._wp                 ;   zvdpvor(:,:) = 0._wp                    ! Initialisation 
    163       CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1. , pvtrdvor, 'V', -1. )      ! lateral boundary condition 
     163      CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1.0_wp , pvtrdvor, 'V', -1.0_wp )      ! lateral boundary condition 
    164164       
    165165 
     
    249249      zvdpvor(:,:) = 0._wp 
    250250      !                            ! lateral boundary condition on input momentum trends 
    251       CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1. , pvtrdvor, 'V', -1. ) 
     251      CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1.0_wp , pvtrdvor, 'V', -1.0_wp ) 
    252252 
    253253      !  ===================================== 
     
    395395 
    396396         ! Boundary conditions 
    397          CALL lbc_lnk_multi( 'trdvor', vor_avrtot, 'F', 1. , vor_avrres, 'F', 1. ) 
     397         CALL lbc_lnk_multi( 'trdvor', vor_avrtot, 'F', 1.0_wp , vor_avrres, 'F', 1.0_wp ) 
    398398 
    399399 
Note: See TracChangeset for help on using the changeset viewer.