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

Timestamp:

2005-09-02T17:48:36+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_004 : CT : Integration of the control print option for debugging work

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -46 +46 @@
 
    USE step            ! OPA time-stepping                  (stp     routine)
+   USE prtctl          ! Print control                 (prt_ctl_init routine)
    USE ini1d           ! re-initialization of u-v mask for the 1D configuration
    USE dyncor1d        ! Coriolis factor at T-point
@@ -126 +127 @@
       lwp   = narea == 1
 
-      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
          WRITE(numout,*)
@@ -168 +156 @@
       
       CALL dom_init                         ! Domain
+
+      IF( ln_ctl )      CALL prt_ctl_init   ! Print control
 
       IF( lk_cfg_1d )   CALL fcorio_1d      ! redefine Coriolis at T-point