Changeset 627 for trunk/NEMO/OFF_SRC/ctlopn.f90

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/ctlopn.f90 (modified) (2 diffs)

trunk/NEMO/OFF_SRC/ctlopn.f90

@@ -12 +12 @@
       !!   8.5  !  02-06  (G. Madec)  F90: Free form and module
       !!----------------------------------------------------------------------
+      USE in_out_manager 
+
       IMPLICIT NONE
 
+      INTEGER, INTENT( out ) ::   &
+         knum      ! logical unit to open
       INTEGER, INTENT( in ) ::   &
-         knum,     & ! logical unit to open
          krequ,    & ! =1 file required (stop if not exist)
          !           ! =0 file not required (create the file if does not exist)
@@ -36 +39 @@
       !!----------------------------------------------------------------------
 
+      knum=getunit()
 
       ! 1. Required file