- Timestamp:
- 2018-06-30T12:51:02+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/step.F90
r9780 r9863 34 34 35 35 !!---------------------------------------------------------------------- 36 !! stp 37 !!---------------------------------------------------------------------- 38 USE step_oce 36 !! stp : OPA system time-stepping 37 !!---------------------------------------------------------------------- 38 USE step_oce ! time stepping definition modules 39 39 ! 40 USE iom 40 USE iom ! xIOs server 41 41 42 42 IMPLICIT NONE … … 323 323 #endif 324 324 ! 325 IF( l_1st_euler ) THEN 326 r2dt = 2._wp * rn_rdt ! recover Leap-frog time-step 327 r1_2dt = 1._wp / r2dt 328 l_1st_euler = .FALSE. 329 ENDIF 330 ! 325 331 IF( ln_timing ) CALL timing_stop('stp') 326 332 !
Note: See TracChangeset
for help on using the changeset viewer.