Changeset 547 for trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

Timestamp:

2006-10-20T17:45:39+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_078:RB: finalization of IOM (2)

File:

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

trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

@@ -25 +25 @@
    CHARACTER (len=16) ::   cexper     = "exp0"    !: experiment name used for output filename
    LOGICAL            ::   ln_rstart  = .FALSE.   !: start from (F) rest or (T) a restart file
+   LOGICAL            ::   ln_ctl     = .FALSE.   !: run control for debugging
    INTEGER            ::   no         = 0         !: job number
    INTEGER            ::   nrstdt     = 0         !: control of the time step (0, 1 or 2)
@@ -32 +33 @@
    INTEGER            ::   nleapy     = 0         !: Leap year calendar flag (0/1 or 30)
    INTEGER            ::   ninist     = 0         !: initial state output flag (0/1)
-   INTEGER            ::   nstock     =   10      !: restart file frequency
-   INTEGER            ::   nwrite     =   10      !: restart file frequency
+   INTEGER            ::   nbench     = 0         !: benchmark parameter (0/1)
    
    !!----------------------------------------------------------------------
    !!                    output monitoring
    !!----------------------------------------------------------------------
-   LOGICAL            ::   ln_ctl     = .FALSE.   !: run control for debugging
+   INTEGER            ::   nstock     =   10      !: restart file frequency
    INTEGER            ::   nprint     =    0      !: level of print (0 no print)
+   INTEGER            ::   nwrite     =   10      !: restart file frequency
    INTEGER            ::   nictls     =    0      !: Start i indice for the SUM control
    INTEGER            ::   nictle     =    0      !: End   i indice for the SUM control
@@ -47 +48 @@
    INTEGER            ::   jsplt      =    1      !: number of processors following j
    INTEGER            ::   ijsplt     =    1      !: nb of local domain = nb of processors
-   INTEGER            ::   nbench     =    0      !: benchmark parameter (0/1)
-   INTEGER            ::   nbit_cmp   =    0      !: bit comparison mode parameter (0/1)
 
    !!----------------------------------------------------------------------