Changeset 10878

Timestamp:

2019-04-16T13:53:45+02:00 (4 years ago)

Author:

andmirek

Message:

GMED 450 fix for ln_ctl

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -82 +82 @@
       ENDIF
 
-      IF(lwp .AND. ll_wrtstp) THEN
+      IF(lwm .AND. ll_wrtstp) THEN
          WRITE ( numstp, '(1x, i8)' )   kt      !* save the current time step in numstp
          REWIND( numstp )                       !  --------------------------