Changeset 1627 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2009-09-01T16:59:21+02:00 (15 years ago)

Author:

smasson

Message:

make sure that numout is open until the end of the job, see ticket:540

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -386 +386 @@
       IF( lk_mpp )   CALL mppsync
       !
+      IF(lwp) CLOSE( numstp )   ! time-step file
+      IF(lwp) CLOSE( numsol )   ! solver file
+      !
+      CALL iom_close            ! close all input/output files
+      !
       CLOSE( numnam )           ! namelist
       CLOSE( numout )           ! standard model output file
       !
-      IF(lwp) CLOSE( numstp )   ! time-step file
-      IF(lwp) CLOSE( numsol )   ! solver file
-      !
-      CALL iom_close            ! close all input/output files
-      !
    END SUBROUTINE opa_closefile