Changeset 689 for trunk/NEMO/LIM_SRC

Timestamp:

2007-06-29T19:29:57+02:00 (17 years ago)

Author:

rblod

Message:

nemo_v2_bugfix_058:CT: make a better decomposition domain print in ocean.output file (i.e. from North to South)
nemo_v2_bugfix_059:CT: use lwp (instead hard-coded value .TRUE. ) as argument of ctlopn subroutine for clean outputs

File:

• trunk/NEMO/LIM_SRC/limdia.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limdia.F90

@@ -58 +58 @@
    !!----------------------------------------------------------------------
    !!   LIM 2.0,  UCL-LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/limdia.F90,v 1.9 2007/06/29 17:03:12 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -244 +244 @@
        irecl = ( jpchinf + 1 ) * nvinfo 
        CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
-          &           irecl, numout, .TRUE., 1 )
+          &           irecl, numout, lwp, 1 )
 
        !- ecriture de 2 lignes d''entete :