Changeset 11506


Ignore:
Timestamp:
2019-09-06T11:41:37+02:00 (22 months ago)
Author:
acc
Message:

Branch 2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps. Small correction to trcstp.F90 to restore SETTE restartability (GYRE_PISCES, at least) with the current state of the branch. Next stage will be to remove the TOP-specific time indices (Nnn_trc etc.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcstp.F90

    r11504 r11506  
    7171      IF( ( neuler == 0 .AND. kt == nittrc000 ) .OR. ln_top_euler ) THEN     ! at nittrc000 
    7272         r2dttrc =  rdttrc           ! = rdttrc (use or restarting with Euler time stepping) 
     73      ELSEIF( kt <= nittrc000 + 1 ) THEN                                     ! at nittrc000 or nittrc000+1  
     74         r2dttrc = 2. * rdttrc       ! = 2 rdttrc (leapfrog)  
    7375      ENDIF 
    7476      ! 
Note: See TracChangeset for help on using the changeset viewer.