Changeset 689 for trunk/NEMO/OPA_SRC/mppini_2.h90

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/OPA_SRC/mppini_2.h90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/mppini_2.h90

@@ -75 +75 @@
       !!----------------------------------------------------------------------
       !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-      !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/mppini_2.h90,v 1.16 2007/06/05 10:27:49 opalod Exp $ 
+      !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/mppini_2.h90,v 1.17 2007/06/29 17:00:01 opalod Exp $ 
       !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
       !!----------------------------------------------------------------------
@@ -323 +323 @@
             il2 = MIN(jpni,il1+ifreq-1)
             WRITE(numout,*)
-            WRITE(numout,9401) (ji,ji=il1,il2)
             WRITE(numout,9400) ('***',ji=il1,il2-1)
-            DO jj = 1, jpnj
-               ! WRITE(numout,9400)
+            DO jj = jpnj, 1, -1
                WRITE(numout,9403) ('   ',ji=il1,il2-1)
                WRITE(numout,9402) jj, (ilci(ji,jj),ilcj(ji,jj),ji=il1,il2)
@@ -332 +330 @@
                WRITE(numout,9403) ('   ',ji=il1,il2-1)
                WRITE(numout,9400) ('***',ji=il1,il2-1)
-               ! WRITE(numout,9400)
             END DO
+            WRITE(numout,9401) (ji,ji=il1,il2)
             il1 = il1+ifreq
          END DO