Ignore:
Timestamp:
2020-07-03T11:12:53+02:00 (8 months ago)
Author:
smasson
Message:

trunk: Mid-year merge, merge back KERNEL-06_techene_e3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/nemogcm.F90

    r13226 r13237  
    6060   USE diacfl         ! CFL diagnostics               (dia_cfl_init routine) 
    6161   USE diamlr         ! IOM context management for multiple-linear-regression analysis 
     62#if defined key_qco 
     63   USE stepMLF        ! NEMO time-stepping               (stp_MLF   routine) 
     64#else 
    6265   USE step           ! NEMO time-stepping                 (stp     routine) 
     66#endif 
    6367   USE isfstp         ! ice shelf                     (isf_stp_init routine) 
    6468   USE icbini         ! handle bergs, initialisation 
     
    178182      ! 
    179183      DO WHILE( istp <= nitend .AND. nstop == 0 ) 
     184#if defined key_qco 
     185         CALL stp_MLF 
     186#else 
    180187         CALL stp 
     188#endif 
    181189         istp = istp + 1 
    182190      END DO 
     
    195203            ENDIF 
    196204             
     205#if defined key_qco 
     206            CALL stp_MLF      ( istp ) 
     207#else 
    197208            CALL stp        ( istp )  
     209#endif 
    198210            istp = istp + 1 
    199211 
     
    426438#endif 
    427439                           CALL     dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 
    428  
    429  
    430  
    431440      IF( ln_crs       )   CALL     crs_init(      Nnn )       ! coarsened grid: domain initialization  
    432441      IF( sn_cfctl%l_prtctl )   & 
     
    704713   !!====================================================================== 
    705714END MODULE nemogcm 
    706  
Note: See TracChangeset for help on using the changeset viewer.