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 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/SWE/stprk3.F90 – NEMO

Ignore:
Timestamp:
2021-03-26T15:33:49+01:00 (3 years ago)
Author:
sparonuz
Message:

Merge trunk -r14642:HEAD

Location:
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final

    • Property svn:externals

      •  

        old new  
        99 
        1010# SETTE 
        11 ^/utils/CI/sette_wave@13990         sette 
         11^/utils/CI/sette@14244        sette 

  • NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/SWE/stprk3.F90

    r14200 r14644  
    171171      ENDIF 
    172172      ! 
    173       CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
     173      CALL lbc_lnk( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
    174174      ! 
    175175      !                                 !==  Swap time levels  ==! 
    … …  
    236236      ENDIF 
    237237      ! 
    238       CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
     238      CALL lbc_lnk( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
    239239      ! 
    240240      !                                 !==  Swap time levels  ==! 
    … …  
    299299      ENDIF 
    300300      ! 
    301       CALL lbc_lnk_multi( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
     301      CALL lbc_lnk( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
    302302      ! 
    303303      !                                 !==  Swap time levels  ==! 
    … …  
    319319      ! Control 
    320320      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    321                          CALL stp_ctl_SWE  ( kstp     , Nbb ) 
     321                         CALL stp_ctl      ( kstp     , Nbb ) 
    322322 
    323323      IF( kstp == nit000 ) THEN                          ! 1st time step only 
    … …  
    328328 
    329329      ! 
    330 #if defined key_iomput 
     330#if defined key_xios 
    331331      IF( kstp == nitend .OR. indic < 0 ) THEN  
    332332         CALL iom_context_finalize( cxios_context ) 
Note: See TracChangeset for help on using the changeset viewer.