- Timestamp:
- 2020-02-19T10:22:15+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
r12397 r12406 105 105 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 106 106 ! 107 IF( l_1st_euler ) THEN ; r2dt = rn_ rdt ! start or restart with Euler 1st time-step108 ELSE ; r2dt = 2._wp * rn_ rdt ! restart with leapfrog107 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 109 ENDIF 110 110 r1_2dt = 1._wp / r2dt
Note: See TracChangeset
for help on using the changeset viewer.