- Timestamp:
- 2020-02-20T16:06:41+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/step.F90
r12406 r12424 105 105 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 106 106 ! 107 IF( l_1st_euler ) THEN ; r2dt = rn_Dt ! start or restart with Euler 1st time-step 108 ELSE ; r2dt = 2._wp * rn_Dt ! restart with leapfrog 109 ENDIF 110 r1_2dt = 1._wp / r2dt 107 IF( l_1st_euler ) THEN 108 ! start or restart with Euler 1st time-step 109 rDt = rn_Dt 110 r1_Dt = 1._wp / rDt 111 ENDIF 111 112 ! 112 113 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 344 345 #endif 345 346 ! 346 IF( l_1st_euler ) l_1st_euler = .FALSE. ! recover Leap-frog timestep 347 IF( l_1st_euler ) THEN ! recover Leap-frog timestep 348 rDt = 2._wp * rn_Dt 349 r1_Dt = 1._wp / rDt 350 l_1st_euler = .FALSE. 351 ENDIF 347 352 ! 348 353 IF( ln_timing ) CALL timing_stop('stp')
Note: See TracChangeset
for help on using the changeset viewer.