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

Timestamp:

2005-09-22T13:07:01+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_013 : CT : replace cpp keys key_mpi_isend, key_mpi_bsend by a character parameter in the ocean namelist

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -8 +8 @@
    !!   opa_model      : solve ocean dynamics, tracer and/or sea-ice
    !!   opa_flg        : initialisation of algorithm flag 
+   !!   opa_closefile  : close remaining files
    !!----------------------------------------------------------------------
    !! * Modules used
@@ -123 +124 @@
       OPEN( UNIT=numnam, FILE='namelist', FORM='FORMATTED', STATUS='OLD' )
 
+      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,*)
+      WRITE(numout,*)
 
       ! Nodes selection
@@ -128 +136 @@
       narea = narea + 1    ! mynode return the rank of proc (0 --> jpnij -1 )
       lwp   = narea == 1
-
-      IF(lwp) THEN
-         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,*)
-         WRITE(numout,*) '                   PROC number: ', narea
-         WRITE(numout,*)
-      ENDIF
 
       !                                     ! ============================== !