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

Timestamp:

2006-05-11T17:04:37+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_060: SM: IOM + 301 levels + CORE + begining of ctl_stop

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -200 +200 @@
       lwp   = narea == 1
 
+      IF( lk_mpp )   THEN
+         CLOSE( numout )       ! standard model output file
+         WRITE(file_out,FMT="('ocean.output_',I4.4)") narea-1
+         IF ( numout /= 0 .AND. numout /= 6 ) THEN 
+            CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED',   &
+                 &         'SEQUENTIAL', 1, numout, .FALSE., 1 )
+         ENDIF
+         !
+         WRITE(numout,*)
+         WRITE(numout,*) '                 L O D Y C - I P S L'
+         WRITE(numout,*) '                     O P A model'
+         WRITE(numout,*) '            Ocean General Circulation Model'
+         WRITE(numout,*) '               version OPA 9.0  (2005) '
+         WRITE(numout,*) '                   MPI Ocean output '
+         WRITE(numout,*)
+         WRITE(numout,*)
+      ENDIF
+
       !                                     ! ============================== !
       !                                     !  Model general initialization  !
@@ -366 +384 @@
       CLOSE( numout )       ! standard model output file
       CLOSE( numstp )       ! time-step file
-      CLOSE( numwrs )       ! ocean restart file
-
-      IF( lk_dtatem )   CLOSE( numtdt )
-      IF( lk_dtasal )   CLOSE( numsdt )
-      IF( lk_dtasst )   CLOSE( numsst )
 
       IF(lwp) CLOSE( numsol )
-
-      IF( lk_cpl ) THEN
-         CLOSE( numlhf )
-         CLOSE( numlts )
-      ENDIF
-
-      CLOSE( numwri )
 
    END SUBROUTINE opa_closefile