New URL for NEMO forge! http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.

Changeset 13776 – NEMO

Context Navigation

← Previous Changeset
Next Changeset →

Changeset 13776

Timestamp:

2020-11-11T14:05:29+01:00 (4 years ago)

Author:

dancopsey

Message:

Flush time step file.

File:

: 1 edited

NEMO/branches/UKMO/NEMO_4.0.3_GC_couple_pkg/src/OCE/stpctl.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

NEMO/branches/UKMO/NEMO_4.0.3_GC_couple_pkg/src/OCE/stpctl.F90

r13587	r13776
108	108	IF(lwm .AND. ll_wrtstp) THEN !== current time step ==! ("time.step" file)
109	109	WRITE ( numstp, '(1x, i8)' ) kt
	110	CALL FLUSH( numstp )
110	111	REWIND( numstp )
111	112	ENDIF

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: