Changeset 12489 for NEMO/trunk/src/OCE/ISF/isfcpl.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ISF/isfcpl.F90
r12353 r12489 68 68 ! 69 69 ! start on an euler time step 70 neuler = 070 l_1st_euler = .TRUE. 71 71 ! 72 72 ! allocation and initialisation to 0 … … 502 502 ! compute run length 503 503 nstp_iscpl = nitend - nit000 + 1 504 rdt_iscpl = nstp_iscpl * rn_ rdt504 rdt_iscpl = nstp_iscpl * rn_Dt 505 505 z1_rdtiscpl = 1._wp / rdt_iscpl 506 506
Note: See TracChangeset
for help on using the changeset viewer.