Changeset 1561 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2009-07-30T10:50:07+02:00 (15 years ago)

Author:

ctlod

Message:

Fix output state following an error state trapped by stpctl.F90, see ticket: #496

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/step.F90

@@ -242 +242 @@
       ! diagnostics and outputs             (ua, va, ta, sa used as workspace)
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-                         CALL dia_wri( kstp, indic )  ! ocean model: outputs
+                         CALL dia_wri( kstp )         ! ocean model: outputs
       IF( lk_floats  )   CALL flo_stp( kstp )         ! drifting Floats
       IF( lk_diahth  )   CALL dia_hth( kstp )         ! Thermocline depth (20 degres isotherm depth)