Changeset 627 for trunk/NEMO/OFF_SRC/IOM

Timestamp:

2007-02-27T20:02:43+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_025:RB: suppress hard-coded logical units except for dimg and coupled

File:

• trunk/NEMO/OFF_SRC/IOM/in_out_manager.F90 (modified) (2 diffs)

trunk/NEMO/OFF_SRC/IOM/in_out_manager.F90

@@ -56 +56 @@
    !!                        logical units
    !!----------------------------------------------------------------------
-   INTEGER            ::   numstp     =  1        !: logical unit for time step
-   INTEGER            ::   numout     =  2        !: logical unit for output print
-   INTEGER            ::   numnam     =  3        !: logical unit for namelist
-   INTEGER            ::   numnam_ice =  4        !: logical unit for ice namelist
-   INTEGER            ::   numevo_ice = 17        !: logical unit for ice variables (temp. evolution)
-   INTEGER            ::   numsol     = 25        !: logical unit for solver statistics
-   INTEGER            ::   numwri     = 40        !: logical unit for output write
-   INTEGER            ::   numisp     = 41        !: logical unit for island statistics
-   INTEGER            ::   numgap     = 45        !: logical unit for differences diagnostic
-   INTEGER            ::   numbol     = 67        !: logical unit for "bol" diagnostics
-   INTEGER            ::   numptr     = 68        !: logical unit for Poleward TRansports
-   INTEGER            ::   numflo     = 69        !: logical unit for drifting floats
+   INTEGER            ::   numstp                 !: logical unit for time step
+   INTEGER            ::   numout                 !: logical unit for output print
+   INTEGER            ::   numnam                 !: logical unit for namelist
+   INTEGER            ::   numnam_ice             !: logical unit for ice namelist
+   INTEGER            ::   numevo_ice             !: logical unit for ice variables (temp. evolution)
+   INTEGER            ::   numsol                 !: logical unit for solver statistics
+   INTEGER            ::   numwri                 !: logical unit for output write
+   INTEGER            ::   numisp                 !: logical unit for island statistics
+   INTEGER            ::   numgap                 !: logical unit for differences diagnostic
+   INTEGER            ::   numbol                 !: logical unit for "bol" diagnostics
+   INTEGER            ::   numptr                 !: logical unit for Poleward TRansports
+   INTEGER            ::   numflo                 !: logical unit for drifting floats
 
    !!----------------------------------------------------------------------
@@ -157 +157 @@
      LOGICAL :: llopn 
      !---------------------------------------------------------------------
-     getunit = 50   ! choose a unit that is big enough then it is
+     getunit = 15   ! choose a unit that is big enough then it is
                     !  not already used in OPA
      llopn = .TRUE.