Changeset 658 for trunk/NEMO/OPA_SRC

Timestamp:

2007-04-30T10:57:40+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_036:RB: correctly close timestep file

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -464 +464 @@
       ! -------------
 
-      CLOSE( numnam )       ! namelist
-      CLOSE( numout )       ! standard model output file
-      CLOSE( numstp )       ! time-step file
-
+      CLOSE( numnam )           ! namelist
+      CLOSE( numout )           ! standard model output file
+
+      IF(lwp) CLOSE( numstp )   ! time-step file
       IF(lwp) CLOSE( numsol )