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

Timestamp:

2005-03-22T11:11:21+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE156 : allow the possibility for each processor to write its own mpp.output_XXX ASCII file

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -99 +99 @@
       CHARACTER (len=64) ::        &
          cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing
+      CHARACTER (len=28) :: file_out
       !!----------------------------------------------------------------------
       
@@ -104 +105 @@
       ! Initializations
       ! ===============
+
+      file_out = 'ocean.output'
       
       ! open listing and namelist units
       IF ( numout /= 0 .AND. numout /= 6 ) THEN 
-         OPEN( UNIT=numout, FILE='ocean.output', FORM='FORMATTED' )
-      ENDIF
-      IF( lk_mpp )   OPEN( UNIT=nummpp, FILE='mpp.output', FORM='FORMATTED' )
+         OPEN( UNIT=numout, FILE=TRIM(file_out), FORM='FORMATTED' )
+      ENDIF
+
+      OPEN( UNIT=numnam, FILE='namelist', FORM='FORMATTED', STATUS='OLD' )
 
 
@@ -117 +121 @@
       lwp   = narea == 1
 
-      OPEN( UNIT=numnam, FILE='namelist', FORM='FORMATTED', STATUS='OLD' )
+      IF( lk_mpp )   THEN
+!! #############################  MPI debug  ###########################  !!
+!!  To allow each processor to write its own mpp.output_XXX file, decomment 
+!!  the 5 following lines, else the output will be done only by the first
+!!  processor in the ocean.output file:
+!!  this one        numout = 80
+!!  this one        numout = numout + narea
+!!  this one        lwp    = .TRUE.
+!!  this one        WRITE(file_out,FMT="('mpp.output_',I3.3)") narea-1
+!!  this one        OPEN( UNIT=numout, FILE=TRIM(file_out),FORM='FORMATTED' )
+!! #############################  MPI debug  ###########################  !!
+      ENDIF
 
       IF(lwp) THEN
@@ -125 +140 @@
          WRITE(numout,*) '            Ocean General Circulation Model'
          WRITE(numout,*) '               version OPA 9.0  (2003)'
+         WRITE(numout,*)
+         WRITE(numout,*) '                   PROC number: ', narea
          WRITE(numout,*)
       ENDIF