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/tests/ICB/MY_SRC/step.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/tests/ICB/MY_SRC/step.F90

    r13899 r14644  
    3939#else 
    4040   !!---------------------------------------------------------------------- 
    41    !!   stp             : OPA system time-stepping 
     41   !!   stp             : OCE system time-stepping 
    4242   !!---------------------------------------------------------------------- 
    4343   USE step_oce         ! time stepping definition modules 
    … …  
    7272      !!                     ***  ROUTINE stp  *** 
    7373      !! 
    74       !! ** Purpose : - Time stepping of OPA  (momentum and active tracer eqs.) 
     74      !! ** Purpose : - Time stepping of OCE  (momentum and active tracer eqs.) 
    7575      !!              - Time stepping of SI3 (dynamic and thermodynamic eqs.) 
    7676      !!              - Time stepping of TRC  (passive tracer eqs.) 
    … …  
    9898      ENDIF 
    9999      IF( kstp == nit000 + 1 )   lk_agrif_fstep = .FALSE. 
    100 # if defined key_iomput 
     100# if defined key_xios 
    101101      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( cxios_context ) 
    102102# endif 
    … …  
    150150      ENDIF 
    151151      ! 
    152 #if defined key_iomput 
     152#if defined key_xios 
    153153      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    154154      ! Finalize contextes if end of simulation or error detected 
Note: See TracChangeset for help on using the changeset viewer.