Changeset 482

Timestamp:

2006-06-19T16:29:26+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_048 : CE + CT : the namelist file must be opened before the calling sequence to mynode() in opa.F90 module specially for MPI case

Location:

trunk/NEMO/OFF_SRC

Files:

• mppini.F90 (modified) (1 diff)
• opa.F90 (modified) (2 diffs)

trunk/NEMO/OFF_SRC/mppini.F90

@@ -14 +14 @@
    USE dom_oce         ! ocean space and time domain 
    USE in_out_manager  ! I/O Manager
+   USE sol_oce         ! ocean elliptic solver
    USE lib_mpp         ! distribued memory computing library
    USE ioipsl

trunk/NEMO/OFF_SRC/opa.F90

@@ -92 +92 @@
       ENDIF
 
-      ! Nodes selection
-      narea = mynode()
-      narea = narea + 1    ! mynode return the rank of proc (0 --> jpnij -1 )
-      lwp   = narea == 1
-
       OPEN( UNIT=numnam, FILE='namelist', FORM='FORMATTED', STATUS='OLD' )
 
@@ -107 +102 @@
          WRITE(numout,*)
       ENDIF
+
+      ! Nodes selection
+      narea = mynode()
+      narea = narea + 1    ! mynode return the rank of proc (0 --> jpnij -1 )
+      lwp   = narea == 1
 
       !                                     ! ============================== !